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24 DOUBLE FRECISTON POWER: VALUE 
25 C 
e6& C INITIALIZE POWER TQ D 
cr a 
es CALL S23 ¢CPOWER>D 
29g C 
30 C INITIALIZE VALUE 
31 Cc 
32 YALUE=1.007D0 
33 C 
34 C INITIALIZE EXPONENT COUNTER L 
35 C 
36 L=I 
a7 C 
29 MEE eee ee EES ESS EE EE OS 
39 C EXPONENTIATION LOOP *® 
40 MELee ee ec eee Pesce EES 
41 C 
42 C EXIT WHEN EXPONENT COUNT = 0 
43 C 
44 | 10 IF¢L> 20:50:20 
45 C 
46 C MULTIPLY VALUE BY POWER IF LOWEST EXPONENT BIT SET 
47 Cc 
468 e0 J=L/e 
49 J=2"J 
30 IFCL-Jd 30340230 
31 30 VYVALUE=VALUE™POWER 
Je C 
33 C BUMP FOWER 
4 C 
~= He 40 POWER=POWER*POWER 
376 C 
Sr? € SHIFT EXPONENT TO POSITION NEAT BIT AND CONTINUE LOOP 
Se Cc 
393 L=L/2 
60 GO Ta 10 
61 C | 
62 C EXPONENTIATION COMPLETE. CHECK SIGN 
63 C 
64 SO IFCIS 60»70,70 
6s C 
66 C¢ NEGATIVE EXPONENT. EXIT WITH ACSFLYSVALUE 
67 C 
6& 60 =1,0D0/VALUE 
69 RETURN 
70 C 
71 C POSITIVE EXPONENT, EXIT WITH ACSVYVALUE 
7e C 
73 70 =YALUE 
74 RETURN 
i END | 
ENTRY/COMMON BLOCK NAMES 
R 000000 SSE 
EXTERNAL NAMES | 
E N0oO0002 S$SE 
E 00112 $23 
E 000152 $2F 
E 000121 $6N 
E o00054 $6mM 
E 000063 $6L 
E goo0066 FED 
E o00107 S2mh 
: E 000145 32N 
=YMBOL TABLE 
R i00004 I 
R O000ir6 J 
R 000172 L 
R 000156 POWER 
R 000165 YALUE 
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TITLE SDE 


C 
MeEesbebisei tS SELES SSE FETT Pee TTT TTT TTT TTT TTT PTT Tee TPT TT Pe PTT PTE ES 
ms C a 
: : CORPLE Ss tT @Q DP =#$I$IA TI EGER PDWERC #8OBDE ns 
? C FUNCTION: TO CALCULATE CBR@lt C COMPLEX, I DP INTEGER & 
S C TH 
9 C ENTRY: CA = C CCAR TS COMPLEX ACCUMULATOR) "= 
10 C * 
11 C CALLING SEQUENCE? JMPM $DE *t 
12 & DATA I "i 
13 C we 
14 C EXIT «+ CR = CREA # 
13 C ; " 
16 Cea KK ERAT RASA SSK RAKES ERE 
: Fs C 
is SUBROUTINE sDECI5 
i%3 INTEGER#®4 IsJ 
e0 COMPLEX Z1is22 
e} * 
ee C STORE C IN 21 AND Ze 
es C 
ec 4 CALL $83¢2132 
es CALL $8S8¢2Z22) 
26 C 
cr C SET J = IABSCI3 
es C 
cg J=TI 
30 IFCIS~LT.039 J=-] 
31 C 
3c C REPEAT MULTIFLY LOO? 
33 C 
34 10 J=J-1 
cre) IFCJ) G60sS0;3e20 
36 eo Z21=2Z1%2Z2 
ae 60 TO 10 
3&8 C 
39 C ADJUST FOR SIGN OF I 
40 Cc 
4i SO IFK€I) 40;50;80 
42 C . 
43 NEGATIVE I. CME] = €1.0930.037CR8RC-I1) 
44 C 
46 RETURN 
47 Cc 
46 Cc POSITIVE I 
49 C 
230 350 =21 
51 RETURN 
52 Cc | 
px | te I=0, CEO = €1.030.03 
4 
35 60 =€1.0:30.0) 
36 RETURN 
ra END 
ENTRY/COMMON BLOCK WAMES 
| R 000000 $DE 
EXTERNAL NAMES 
E 000002 $SE 
E 000074 $88 
E o0n040 sé6D 
E 000082 s6L 
E 0001268 $38F 
E OG0071 $3h 
E 000114 S8hN 
SYMBOL TABLE 
R idgdq0dg4 I! 
R Hovdg1ide J 
R N00132 21 
R VO0136 Ze 
R o0c0355 2500 
rR 0000435 3190 
i Co0144 Go20000 O00001 
R 000125 360 
oa 000100 330 
R 0000653 3290 
R 000110 349 
R .000120 330 | 
R 000146 940300 000000 0900000 90009090 
ROGRAM SIZE 00015e 
0 ERRORS COMPILATION COMPLETE 
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oat e RES SESE ERR EER ERE EEE RRS RR TEPER RE RR ER RRR EER RSS RR TE PSE RRR RS ED SS RS ESS 


TKR KKRKKRS KRESS EKER EKER REAR ARH REESE RES EKER RK KEKE SE EK 


KREME 


* ENTRIES *® 
cee KO eH 


NANE $GC 
SUCKER ES ES 
*% EXTERNALS #® 
SEER EOE EMS 
EAT SEE 
EXT $zs 
EXT SoUCH 
2S eCeReener eee 
*% SET BLOCK &® 
SECT KES ee 
MT SET 1420 
BRiS SET N§t+32 
BS 7 SET MT +o 
Deda SET Fs? 
* SET 1 
1." ee Ree 
* MACROE * 
ee ee ew 
LDAB MAC 
IF TY VORTEX-e 
IFF VORTEAX-4 
Soro FRENURI 
LDS Pcl) 
LUE PfLid+i 
GOTo FRMURES 
FRMWRI CONT 
DATA 0105032 
TATA Fe¢i 3 
rReawRee CONT 
cMac 
SeCR EC ae Ce eR CK eee ee 
* STORE D LOCALLY &® 
CEN EE EE EHR EE OH OS 
SGC ENTR 
STA C4éAéfVvx% 
CALL a7 5 
Pee C4e6r 
TRERSSSR GSR EeSIOSAC oe S 3 
* TEST FOR SPECIAL 
TRE SSERSOR ESAS See 3 
2x 
i Thi Cannel 
JAP *+4 
CPA 
DEUCE + 
STH# C46SGF 
STA C4e6eD+i1 
OFG C4+6p42 
Ore C46d0+3 
JAS CaéaZerR 
LDA 460 
SUF Geen 
Ae e46E 
rar 
Jan rdeaZER 
SLE 38 
Jar C4s0VF 
TA N30 
SUE C4a46E 
ORA ~465ESH 
STA C4enS3HF 
LDAB C46D+1 
EC C4oSHF 


Neil ere "SRR HT Tt atresia acces menisci 2 wns, om xg Laos 00 


¥ 
* Ee J im DP FLOATING T O DP i # Fst 
¥ Cc $ GE 3 

4 

* FUNCTION: TO FIX A DOVBLE PRECISION FLOSTING FOINT NUMBER 
¥ TO & DOUBLE PRECISION INTEGER I 

* ENTRY: AC = D 

bs 

* EXIT + AB =! 

* 

* ERRORS: OVERFLOW: OWFL SET 

¥ AB = MAX DP INTEGER OF CORRECT SIGN 

* SEE CALLED TO OUTPUT * ARITH OVFL' 

+ 


ERROR MESSAGE FROCESSOR 
STORE AC 
NEGATE AB 


S-~REGISTER 


WOS LOAD AB 


E 


SAVE »% 
STORE D FROM AC 


VERE ERE HY EH 


¥ 
VALUES OF D # 
OE ee 


CLEAR SIGN FLAG 
IS DBD NEGATIVE ? 


YES. CONVERT TO ABS 
SET SIGN FLAG 
LOAD SIGN FLAG 
UPDATE D SIGN WORD 


D=0.09D0 7 


GET EXPONENT OF D 


I=0 IF ABSCDD .~LT. 1.00300 
OVERFLOW 7 

GET SHIFT COUNT 

CONSTRUCT SHIFT INSTRUCTION 
STORE 

GET Deld»sDCe23 

POSITION 
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1440 004000 A 652 D2048 DATA 2048-* UCS PAGE: SIZE cSi2 64 BIT WORDS? $03 00626 

re . 632 *"=" *° Sec a pees Ree es $03 00627 

654 ® re | $03 00628 
455 *™ THIS ROUTINE WILL CONTROL THE SIMULATED OPERATION $03 00629 
é56 * OF THE COMPUTER $03 00630 
657 *® | 64 ssh $03 00631 
658 8 ENTER VIA THE BEGIN COMMAND $03 00632 
659 = $93 00633 

1441 660 $100 BSS 0 $03 00634 

i441 0170 I 661 LDA EXLIM EXECUTION. LINTT E, fee RH HH 

i442 0570 I 662 STA RCNT ESET-RUN COUNT EC, ue ee ee 

1443 0170 I 663 LDA CPAG EE, cee RH MH 

1444 0570 I 664 STA PFAG SET CURRENT MICRO PAGE EC. cee RRES RX 

1445 oo020 A 665 JMPM INA GET START SIMULATION ADDRESS 03 00635 

1446 0133 R 

1447 1472 A 666 DATA ‘NS 032 00636 

1450 006030 A 667 LDXI DROM $03 00637 

1451 000546 R | . 

1452 001020 AR 668 JB2 $101 NO ADDR GIVEN--CONTINUE FROM LAST ADDR $03 00638 

1433 001455 R i era. 

1454 0355057 A 669 STA NROMs 1 $03 00632 

1455 002000 A 670 $101 CALL FELD BREAK ROM WORD INTO FIELDS $03 00640 

1456 012766 R 

1457 002000 A 671 S10@ CALL LIST... PRINT ROM LOC.AND DECODED FIELDS $03 Noéd4t 

1460 014175 R . ne ed. 

1461 002000 A 672 CALL :, CRASS. DETERMINE NEXT ROM ADDR $03 00643 

i462 001673 R | ; os | | | 

1463 002000 A 673 CALL . CRRA... OUTPUT NEXT ROM ADBR TO LINE PRINTER $03 00644 

1464 003347 R Sei A SO TE 7 , 

1465 006030 A 674 - LDXE ~* DROM $03 00645 

1466 000546 R -_ | 

1467 op2000 A 67% $103 CALL $300 DATA LOOP PROCESSING £03 00654 

1470 003431 FP | 

i471 0020060 A 674 $104 CALL MOPA MEMORY OPERATIONS $03 00655 

1472 007172 R | 4 : | 

1472 096039 A 677 LDX!I DROM S03 00656 

1474 000546 R 

i¢75 002000 A 678 $108 CALL *1006 DETERMINE STATUS REGISTER SETTINGS $63 00657 

1476 006112 R 

1477 802000 A 679 CALL LTMX LIST TEST MUX STATUS $03 o0E58 

i500 004074 R ) | 

1501 og2000 A 680 $105 CALL $106 7 $03 00659 

iS0E OO1507 R . ; 

1503 09176000 I 681 LDA CPAG NEXT MICRO PAGE | E, 2x Oe mm 

1504 057000 I 682 STA PFAG SET CURRENT PAGE TO NEXT PAGE EE, 2am ew 

i305 801000 A 683 JMP $101 GO UPDATE ROM CONTROL BUFFER S63 05668 

1506 0901453 R 
684 * S03 00661 
635 8 ~~ CHECK FOR RETURN TO EXEC CSTEP MODE OR RUN COUNT SATISFIED) $03 90665 

1507 900000 A 686 $106 ENTR S03 90666 

i510 006020 A 687 LDBI STEP S03 00667 

1511 900471 R | 

isi2@ 016000 A 688 LDA 012 STEP/RUN FLAG $O3 00669 

1513 001010 A 689 JAZ. +4 $63 008669 

1514 001517 ® 

1515 001000 A 630 JmP ExXC10 RETURN TO EXEC (STEP MODED £03 900679 

1516 OO1111 R 

i517 001405 A 691 J$$3 EXC10 RETURN TO EXEC IF ABORT RUN SET £, QRH 

1520 G61111 R 

1521 002000 A 692 CALL $120 CHECK FOR ROM HALT ADDR E. 2 n e 

isz22@ 001560 R 

i523 017000 I 693 LDA RCNT MICRO COUNT 363 00671 

1524 001004 A 694 JAN® $106 RETURN IF NOT SET 303 00672 

1525 101507 R 

i526 061010 A 695 .- JAZ S1i06A COUNT SATISFIED $03 00673 

i527 001534 R 

i530 005311 A 696 DAR $o3 00674 

1331 057000 I 697 STA - RENT DECR RUN COUNT $03 00675 

1532 901000 A 698 JMP® $106 $903 00676 

1533 101507 R s _ | 

1534 002000 A 6399 SI1B06A CALL SIOUT+ 14s S106B OUTPUT MESSAGE S03 onée77 

1535 0135406 R 

1536 009016 A -, . 

iS3S7 001542 R 

1540 odGio00 A 700 JMP EXC10 RETURN TO EXEC 503 00678 

i541 OO01111 R | | | 

1542 120240 A 761 S$106B DATA " EXECUTINN LIMIT SATISFIED * $03 00679 

543 142730: A- - 
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. BATAN PROGRAM PAGE i 
VORTEX SET 1 7” 
- THIS IS A COPYRIGHTED PROGRAN. 
* ¥.D.M. PART NO. 92L0506-149C 
4 
* RELEASE 
J 
* DATAN 
bs 
+4 
TITLE DATA 
. RARCTANGENT oF EXTENDED PRECISION NUMBER 
bad CALL DATANs ARG AC=ARCTANCARG>S 
| 
* CALL SDAN 
7 
ba AC=ARC TAN CAC) AC=PSEUDOQ ACCUMULATOR. 
* 
NAME DAN» DATAN 
eee ee ee 
™ MACRO * 
ERR EE 
FSE Mac 
IFT VORTEXK- 
IF F VORTEX-4 
5o0ToO FRMWRI 
EXT SSE 
CALL $SeE MFER PARAMETERS 
Goro FRMWRe 
FRMWRi CONT 
DATA 01035036 BCS RFER PRRAMETERS 
FRMWR2 CONT 
EMAC 
* DOUPLE PRECISION LOAD 
FLOOD MAC 
IFT YORTEX-3 
IF F VORTEA-4 
GOTO FRMWRI | 
EXT $DLO DP LOAD 
CALL SELG : 
GoTo FRNWRe 3 
FRMWR1 CONT 
BATA 0105522 FPP DP LOAD 
FRMWRE CONT 
EMAC 
EXT AC BP ACCUMULATOR 
@™ TOUBLE FRECISION STGRE 
FSTD Mac 
| IFT VORTEX-S 
IFF YVORTEX-4 
SUTO FRMNURI 
EXT $sT0oO 
CALL $3To DP STORE 
GoTg FEMURE 
FRAWRI CONT 
DATA 0105710 FPP DP STORE 
FRMUR2E CONT 
: EMac 
™" DOUBLE PRECISICH ADD 
FADD MAC 
IFT ¥YORTEA-3 
EFT YORTEX-4 
GoTo FRMWRI 
EXT fer 
CALL $2K DP ADD 
GOTO FRMWRe 
FRMWRL CONT | 
DATA 0105303 FPP DP ADD 
FRMWURe CONT 
ENAC 
™ DOUBLE PRECISION SUBTRACT 


FSED MAC 


OS a YORTEAX-3 

iF F *ORTEX=$4 

GuU;ra TRMWRI 

EXT Set 

CAL Sei 

GCT FRMURe 
FRMNURI CONT 

DATA TiGS34s 
FRMURE CONT 

EMAC 
™ DOUBLE PRECISION MULTIPLY 
FMUD MAC 

if T VGRTEX<$3 

LFF VORTEA-4 

GUTO FRMURI 

ET eel 

wAL sini 

GOTO TRMWURe 
FRAWRI COAT 

DATA 9105306 


DP SUBTRACT 


FPP DP SUBTRACT 


DP AULTIPLY 
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oo00001 A 1 VORTEX SET 1 C7? 00001 

e m THIS IS A COPYRIGHTED PROGRAM. COPYRIGHT 1973 BY YARIAN DATA MACHINE O7 O00Ge2 

3 07 00003 

A? 4 * V.D.M. PART NO. 92L0306-122D Oo7 o0004 
= o7 0000% 

6 ™ RPELERSE 10-15-73 O7 Ootd006 

- ™ Gf egoo00? 

so ™ ALQG H7 o0o0o08 

9 ® Cr OUCOS 

16 * ao” boO16 

11 TITLE ALOG uo? O0O11 

L 1 990 eRe eA ee ee eee ae ie ee ee eS ooo 

13s ® ego? o0013 

14 * R EaL L O G T O BASE E«€ ALo& 32 * o7 NOOI14 

is * ™ OF 00015 

16 ™ FUNCTION: TO COMPUTE LOGCR)D TO BASE Es WHERE R AND RESULT ARE -™ 07 GoO0dtsE 

17 ® REAL NUMBERS. THE METHOD IS TO FACTOR R INTO A PRODUCT “™ §?7? 00017 

is * OF POWERS OF 2@ AND A REMAINDER TERM. THE LOGS OF THE ~*™ go? G0018 

ig * POWERS OF 2@ IN R ARE TKEN FROM A TABLEs THE LOG OF THE *™ 97 OO0013 

eo *® REMAINDER IS COMPUTED BY A FIKED-POINT POLYNOMIAL. THE "@ oF oGONe2f 

21 *® LOG OF R IS THE SUM OF ALL THESE. * CC? O0gde! 

ze ® ™ ¢€7 OO0O022 

23 ™ ENTRY: NO SPECIAL CONDITIONS *¥ CC? O00e7 

24 ™ | | * OF ooted 

25 ™ CALLING SEQUENCE: JMNPM ALOG *¥ 2/ G0025 

c6& *® DATA ADDRESS OF ARGUMENT * C oo0e6 

cr ™ * 0 900¢e 

e8 *@ EXIT = REAL RESULT IN AB * 0 oboo0er 

e9 ® * { s00e2e%3 

30 ™*" ERRORS: IF INVALID ARGUMENT: = Q ond3s9 

31 ® "FUNC ARG" MESSAGE OUTPUT * 6G Ho Si 

se ® =9 = 3 hoose 

33 ® OVFL SET x § $0033 

sa *® * Oo onos4 

35 CE ee ET RST CEE EET Ke! OG hanes 

27 See eee Oe ee c hogy 3s 

so * ENTRIES *® G oo0G 38 

33 SECVP RMR RCT K€ rE uo 3 

: Oe 6 ie 

G2 eee eS ee nodes 

43 ™" EXTERNALS *® C Loo4 3 

44 MERCER SE Oe Ee " nocad 

45 EXT See ERROR MESSAGE PROCESSOR G goc4ds 

46 CAT SMALL REAL NORMALIZE ui Coo 46 

a EXT SFC FLOAT INTEGER E coOcd? 

49 ee ERS ee F S4a282 

30 * MACRO ® G CGOS: 

Si MERE EEE i: no05? 

Se Fan “ac 0 g3¢c8e 

53 If Tt VORTEA=3 Beli Ccatesz 

34 IFF VORTEX=<4 BD. is Q3G34 

me GOTa rFRMWRe Bw, iaf S053 

76 IFT YVOoRTEA-1 D.IG7 gusts 

37 SOTO FRMUR1 RB.16? 230757 

ws at Sak REAL ADD B.id?f cess 
29 FALL SOK DBL.1G7 gées3 
60 GOTO PRMURS De ite of 6a 
61 FRAWRI CGNT D.:49/7 066i 
6e LATA Ciodsi1s¢4 BCS REAL ADT u.itr 8762 
63 GoTo TrRMURS D. LEY 38063 
64 FREWREeE CONT DPeig? $t064 
63 DATA SiuS410 FPF REAL ADD Dei€¢s 306° 
66 FRMWRS CONT D.1G? 98966 
6° EMAL AO Bae 
65 Sr ee» D,1f@7 goes 
70 ™ MACRO ™ P.iG7 S007 ¢ 
71 Mew Re 7. 20.2 eS ys 
re FLD NAC DB. 204 2972 
is DATA 0195420 FRPP LOAD Poa Seg e S 
4 LATA Pcid Beit? ag@8e74 
io EMAL b,i34 88S 5 
79 <M ww ewe & B,.i8 7 88079 
sO * ACRO * Beka sede oe 
C1] =<NeeR ee Ee 3..27 98S! 
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24 rata Pcs} n.i27 @coag4 
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“9 * MACRO * ee 
a0 eee eee tc? Ootesce 
o1 FSB “MAC At hip ay 
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93 IFF YORTEXN<-4 Bai¢? 680087 
$4 aott FRAWRe Peidse Ges Se 
95 IFT VORTEX=1 D.if?f €99S33 
96 oOTO TR™MIIRY R.if? 2006 
97 =T Sit. REAL SUBTRACT Ei. soe P2897 
$s Sa@te 0} a,.2ea7 €2599¢ 
393 5070 FRUIRS D.107 G0O3 
190 FRAWRT CONT Betis “EEO E 
184 DeETA Richi? 4 BCS REAL SUBTRACT is £97 D1 6-3 
10e2e oT FRMKRS Bd. tG? 80ibe 
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20/7 CALL 4DAaD Cr 6 00e0? 
20s If T VORTEX-1 Gr) 600205 
299 DATA 0105334 BCS FIXED-POINT andD 07 O0209 
£10 EMAC DY 09210 
213 See 07 O0e13 
clqd ™® MACRO ® O7 o0214 
215 Mee Reee ee Oo7 g0715 
216 KSE MAC O.” O0F16 
fir IF F VORTEX=-1 GO? O02Tr 
e218 ExT ADSU FIAED-POINT SUBTRACT OF OF1is 
213 fF Fr YORTEX=1 07 Q0213 
220 CALL xDSU 07 DbFeD 
cel IFT VORTEX-1 Oo? oOo0e2@?7 i 
eee DATA 11035374 BCS FIXED-POINT SUBTRACT Of OCI0e2e2e 
ecs EMAC O07 O0e23 
ccG VERE eS 0/7 002265 
cer ™ MACRO * GO? OQ0e2?7 
Cro MESES o7 90272 
eco AML MAC O07 00229 
230 LFF YORTEX-1 oO7 00236 
231 EXT xOMU FIXED-POINT MULTIPLY U7 0023: 
ece IFF VORTEX=-1 07 Ootcese 
233 CALL Ss OMU OF O0ESS 
234 IFT VYORTEX-1 RF aQnead 
eoW DATA 9i103e74 BCS FIXED-POINT MULTIFLY Y?f O0235 
eoa6 EMAC 07 O0236 
2°29 Wa ee Oo? one39 
2-40 ™ MACRO ® OF O0240 
+1 MEXR RRERE Oo? ooe4i 
ede xXDV Mac Sc? Ob0e4de2 
eos IFF VORTEX-1 FIXRED-POINT DIVIDE t/ oCe243 
e444 EXT ABDI C7 O0244 
245 If Ff VORTEA~-1 0? O0245 
e46 CALL xDDI O/7 O0246 
eq? IF T VOR TEK-1 | Of O024?7 
243 DATA 105234 BCS FIXED-POINT DIVIDE OF O02@46 
e493 EMAC O07 O08@493 
Lee eee Pee eS ay SE GY Ooo252 
253 ™" SET BLOCK ® fr O0253 
ree Pee eee ee aa SS O7 O0284 
Qo0022 A e255 SBIT SET is O77 00255 
900020 AR 256 SBIT SET 16 OF 80256 
Q00001 A eve & SET 1 OF O0eES?7 
0000 074213 A e253 LN STA LASS SAVE A a7 Cees? 
0901 005001 A 2650 TZ Ct? GOZEa 
CO0e O54214 4 e251 &TA LAY CLEAR RESULT TO uf UG2ei 
0003 034214 A e&b6e STA LAV+1 of O6e26e2 
PACE PEE SELESECL LCC ES EE RES RL ES EE EE SE 67 99232 
eé4 * GET ARGUMENT Us CHECK RANGE * o/ G0e2é64 
Peete eP Pee ee RSS ELE ELSES ET SRT RS ES SES OF Oores 
0004 034164 A é&66 LDX LNP POINT X AT ARGUMENT WU OY Teas 
000383 013000 A e6? LOA Ja X LOAD U IN ABE gO” O82 247 
C0006 O2&5001 A etd LIB 1s 17? QO 88 
Oo07 001004 A e269 JAN LNER ERRAR ON NEG ARG O7 O8CED 
0010 O001LZ74 R 
0011 001010 A e770 JAZ LNER ERROR ON ZERO ARG y ¢a2? 
0012 000174 R 
27] FECES ESE TERRE ee ee nO? teri 
ere ™ FACTOR U=eRRN F FY WHERE Y=1.%% *® C7 GG27e2 
O72 BEEN ETRE ER EER REECE ee QW? 482723 
0013 034173 AR e&74 STA LNA SAVE HIGH WORD OF U CP, O0e74 
0014 134207 A e275 AA LANE M GET EXPONENT FIELNM a7 agers 
0013 054175 A 2,6 = TA LWE SAVE IN LWNNE J” 90275 
0016 134172 A ef? EFA LNA RESTORE HIGH WORD OCF MANTISSA O7 avers 
oo17 144201 A 278 OFA LNEt MERGE EXPOMENT a7 goers 
0020 034170 A e273 STA LMA SAVE Y IN LNA We UES 
0021 064170 A #2306 STB LNA+1 OF €£EH8R 
o0e@e 014170 A es ..DA LNE RESTO®E EXPONENT O07 O8f23! 
0023 004347 A e28e LERA $Biy,-9 RIGHT-ADJIUST G7 Ohesce 
0024 006140 A e285 SUB G20: SUETRACT BIAS TO GET WN G7 O82383 
G¢e2S O00201 A | 
0o0e6 001010 A e284 Jaz “= 3 SKIP NEXT ELOCK IF N=0 07 Ho0284 
o02e7 000037 R | 
225 SRA SK REL ee eee o7 nonF7s5 
eS6 * LNCUI=NPLNCA@D + LNCY) &® Gf Oneses 
es? *® COMPUTE N¥LACe]D ¥ Of GO0ecsr 
295 SRE ERPE TR R o7 gterss 
0030 O082000 A es3 CALL SPC FLOAT AN BO? 809202 
0031 000000 E 
230 FRU GET N#@LACeED CY @fe2e30 
oecs@ ooevon A 
0033S O00000 E 
C6034 O0O00€ee R e2Fl DATR LNe@E or one?! 
0035 03534161 A ee STA LNY SAVE IN LAY oO? 00232 
0936 064161 A E33 ee LAV! h? o0233 
234 RECS RRHT ASRS CRAKE RS oF ogesa 
23353 ™ INITIALIZE FACTOR LOOP ® Gf OC235 
C96 BRENT EST CREE ET OF oo2ed6 
0037 0060180 A e397 LNl LnATI LNTi-e 7? aged? 
0040 0002253 R 
0041 034035 aA 233 STA LNP I INITIALIZE TABLE 1 FPOINTER Or OCESs 
no@e oco6les A 2393 eUDI LATS=-LATI ne Gueeos 
0043 000016 A 


LISTING PAGE ¢€ 463) 


4 


PAGE 


ALOG PROGRAM 


¢ WORTEX LISTING 


Pod 
GC «a 


cota Cor Do Ob nt ee Te ois a 6=6C SS ad OU WT a at Go CO oe UE Lote Po eet cab PO oe ties PO ey ea ae ae hy mrtg ee a a, at ls a 
SOogagwcco eGo SBA etree metas Ss efit] elt ty cits os Ge Ce Oy) eee) CFS Se shee so ee ee ee ae Gras 40) UO wo Mh ser a Tale, f 
Cee, ey Cy OE fe c a7 8 si on fo ¢ ‘V's ae 23 0 £4 fey ees Free oy ay Coy Ce eer op gs fry Cp? fp He os Cy ee es ee ns ore M709 (9 9 rs a, co a) 
Seo foc os Oo Sem Ot oO ct Ge <i oe co cS > eS Te ID mrt ce cle cee eS Ct CP Ca ee es feel 3 Ie = OCS Oo oc Se ci cp co 
GOs fo cS oS eo to os a ota Gy € ome i eee rye fs Si oo eS oo! St Get oe we ao io! 8 ! Gel a a a Gal so ee ea Cm we ee ee at Le ie Ole ea ee a tn La 
a he a ee f Peo | i Pa Pe f Po ES PBS fs, TP Ps Po Ps, ee ee ee ee be a ne ee ee i a ee i coe rh, tT Pops. fo 6 me n 
oOecaroaa Gs occe re aie a a) vat El oe oy Co cc? ey op Ce ee ST es or She | CD wee C2¢ne ye oe a ge ee fiom ovde cs Pa pk see cece os cv om 
es, 
ce" 
_ 
= — 
*- Lal | 
rt iain all 
- RH ~ eR ie! Li. 
ha 63 * * ‘—o 
. Lid | i Lt 
ir ~~ Ww aj # -T * _ 
Lu oe v4 eg xe = =_— C2 
' a P }-- <I x  # 
ra ie ,* oO b= = fe Li Lid 
al - Lud o “« | ra - 
| ae = Fe ms _ % l- * bs » 
a. Lil L-J a > a J+ oa _ ay Fa” 
ea = e fé ol te ear > = 
cu & 2 os told A aad + x o& & cl i=) * ¥ 
Lad = | oO = * bd a 4 os mo 
Lal - - Ww aw Oo Lid ~ “e- * rt > > "3 
mall aa —+ od = xe H ae | a 4 ro » ™~. . 
i) _ ai. F&F Se *¥ * - — ae ae Lj rm ae = > 
<x oo << 4 Y -« oO a «*C zl _ ma cs i 1 
al a F- i ae * Lil 4 aa Oo #£+ &.* * eR i “he ~, ou qu 
ss Le al * + —! "> «I co «| Cf ir * * oe - = Ne ™\. 
La Lid _ k- - r OF is) Lil "W —7 «HF - x J CL 1 1 aaa 4 
tw —J ui tt» - » ¥ a te J m Lil * If tu oJ “a 
lel AQ u 4 eFEE - eh ow ~~ kw «xs A ReE OO “~~. “he 1 ! 
al <r —- x« Wet Li Fr OF ~ <a ~ _ 2 se kK Li | 2 2 fw - _ 4 — 
‘I a af A b m OR *h iT Yt “I . «us a. ~k OF = te 7h, Sa ‘! k= he? ur 
rae ee t ar ad Be: = a moll = — ¥ i“) = sR wi a ii — 
-# * & —- =. Ci - mr; >- § i ‘| - > -% - LJ *# =e iF =! bd i= - =! bad rc 
ae Ue E — F =O (A nxKeEeE Fa ont [=] - if fae pS a >Pr JIE & il I> FF Wd Lid “= -)3o ld Li 
= x Oo ~= OO O88 = xeE cz Lil Lea ul OO ¥ al qreoe ru AT Ww WwW , ha Aa LI «6 ha 
—F Le Ww a& ti.) = Fz 4 4 UO *# 2 Ln ee ie cm TM 
* CO Be ud ® “ <* ad ad 
- x * EK “ o> © ERE 
“Oe * Wk “xe RakE 
a x IF x ul ® Breik 
* uw BOF =e FOk 
* I RCE “ze * Oo. 
* Ci KEE x eK x ik 
et wo b * m ¥ Fok 
‘od ® 4 FGrE Rut * Wk io om 
= bt | ~_ xe Oe _ _ tl _ nOe- kK >i I —_ 1 rt 
tf @ Tom ea et CY Oj ea OY al i -— * c Fb FE + + + +o ~ + + EK rik Es + od + 
ieee & oat oe se iLTKe + bie a | * ik Ca a. o> o> i=. ! #2 ew I = Ttrreu® te? et f= Fe T ei b— }- 8 t- «L 
2. * ee ee ee A «oh 7 me) + = a *§ s 6B Cl Ze i de ce Zz 06 OUR LOOM a . al Pe ae A Zee = = = = 
AREER 1! Jj JC OCU ‘jp e wal al = —/ fuk — J i oe oe ee ee es Oe ee | a pe | «ll «=! 44 J Wj.) | = 
* Os x x “tke Foe 
*} rE K Ez x * x x 
* OF ta 3 x LJ Be LJ ® 
m <I x Lk mi Ere 
* li al oO me UR mm <L ere fe Th TL I Ce a cx 
{I * eee e oO Te Mw KTM ee OD Tear Fh et CM> i) <P 4 eo ea +E 63 0. *¥Ee TMP Carat o> Reto Ar co i fo te 2 69 CC eT iT 6c ee = t- 
MmEOR ZL Le LAS az ae on ee LOE = o> Creat COAG Meron <a (—F- = 4 ea BW Caf re k= Bethe O Fa ae Se ee 4 oe Talk FG huis ac a 
Oe mR Bowes ea ee es ne oe eee Do ee — Uo" i, 13 > ORFF oJ dk Mint) Jl mo") mu > EF LJ 7) one ee ee ie Fy te or Ud: eS 9 Ww 6 Ot Ld) k= oc = = 
* K x Ek x Oe ZHROR 
| ne eu “ue me Cit 
x Ci gO xo fe | ie 
BOF & Bn 6-E _ fu x oe earF 
m 1 mE I e*eE KX oa i wc pe » it 
* #2 Ez Kz a _ ba , * ¥ 
* ew © wk EEF I al aah x. w “ee 
poeUrorw.wer oc co rFWor mw 0 Hon Wo rnowrd Mo 0) tf moro RKoreWotr Nw Oe et fl fo wr bo wR fo M co “CUT Tow h oO} ch o 
qaococoococs — Aes es ete oO abhjt Qty tut tl ty ty won 4 OOo i@rtesrer teres Owe ron Op nyY Ms W000 W006 a0 wo wo V0 Ph 
HOoMmnMnannonn © 479mAno7n 9h G& MOHoOMm MOMAnannannnm mmm 4 OM fFMPpMme mm Mma r mms MHMHoe 9M mot MOMMA Mmm qr ¢9 co 
«I TTT Ke etree Tededcaiek Te ail BET AW Weck a0 cl ci te cI {1 Gide TiC ad int Go <0 bi oe CE cE el AT £0 Lai fie tT i Ce 
74 HAOWNNoOoWNoetioxn ot owoMilea dT wo nw eo oot t+ oc en ee | wf oO we “ cowRe With aoe coonht MMe cots Wy cS WO ew 
«ft OOM Ott ese WMO oo tt Sawvornluond t “et oc as oo ooc tT fFoRmok m& = oouUerwwhk © oo oon oihiw oe coco. cf 
© oOocoonc0cC#hmdaqIA oO cocoaxnrooc aq C0 wee Ht OFC AHO ocoolfoxs wD ofOFHNmO OCOD cel Gonulnooocn enw ioe 
tT TerrrrtoOosot thro sone otrneao tr wo wtett Wo treo th Wet co th ot tT foortrtarrsro Woo Wreort rrr iUoo ueoc 
> Terres ocoM Atos ooocn7ntos =~ oo WNW oo WwWoo aeooounw coc eooomrvwvrns o9c oO OC OO OMY nse ooo oCceS 
© oHooeoocceoeoococsc xo ac ooocornrcas oo.06U«CmlLmOlmUlUCWZCOCS}’COCO OOlC COCO ooocce co omrrocrece oro ofcmOoOCcCHooac cone cooc 
wT NwWreoRrWOHowowor on fl MTOR oAt ( 7 wwWhoeWd Tomoko = ty ornwko _ WMowroweoa fd ( rewh co a hho + bio h. on (u 
w TtTrrNHOvYy NH YwYnHwwvow wWwwwwe Rh ee en e4toea rot et et CU WU Wattle Mo MM ests tr rer Ww 
tS oOo rtcooimrmoeqgoeGc cf & = a a a a ee a ee | Cc 2 SoS ea oe rs worse rs aes oS eS Sorts ei eof] Parts eSstoerdoes ed et ra oot oe reorders pe) weft rel eat gel oe owl elo ed ei 
oS Hoa cocoa onaacrtcc= caqceocoas coo Ccoopoesecoeoso GSeaeococmacs mcm om td 3 de ecw occa oc off COCO MoS gamocmt cs co ch 
a> oOono.Tc0eaGanoo coon oo noo pac oo So coooce ooooOc CoO moogormort oOo OProoaear oOfC COC OOT CGM Krrcc: oaoS co co o> 


t ooo ofr coco ccd = Ooo "oO 9 32 =. ae oe coo oo Oo occ. Hc co concoec4 - omonwoococt ct) ch ime Door ec o> foc & 


coe ie a Se ee 


464) 


LISTING PAGE ¢ 


PAGE = 
CONVERT TO FLOATING POINT 
ADD TO PREVIOUS VALUE 


NORMALIZE 


PROGRAM 
ADJUST 


ALOG 

LASR SBIT-10 

CALL SHML 
LNEL 


ADD 
FAD 


374 


E.2 YORTEX LISTING 


wawSs oho Rs mw wT Ww fs. Coe) ce at i =F Ws yo 02 0% om ee MM THA et Ary, fo oe HG eS oe to uy a ee ee Ye ba. on oo es 
nm PP MR M 0 00 0o 09 Oxo OOO Ww mom mh mo ooo Be ae eee teen hah theo duh thadiedet RRL RIDL EL ACLELAU SIO OO Oe eae eee 
Moana (9 Moo OM © 6th eat to or efoto thd woe hoc oe oe tr cs che crt ot oe oto ao ee ee oe eb eh tb tr si ost os sr ot 
oeo,nroesaccoao ae ono oocoe 6 5 S555 SSooSoe CSG SC FCS SG SCS GOS Sor GVerwoioroo 8 Gos SOO Fo SO OOOO OOO Oto oS 
mama roto Gd = mS oS oo c* OS = is ct ca i223 tS oc pooch oo oo oC oO So CS oo Gocco 8 Seog 2M AIM OS Fe ts BAT Beaks ceCA tS oS 
im POT PPP PS mB Pm Ps Ps. BAN A Tr mh Pa. fs a ee oe a be re ee ee a ee a a | ee Oe Oe ee i ee a a el ed Sc eee beer 
" Oepmoepnpoonc os ono oeoeoeceo 8 28286 S850 88 BGO AGO as sn Bs ge Bese yactae SS Sec Se SSS se Be ODS TSS .41456 63 oe Ccraoces . 


& 
oO 
& ie 
iy Lil 
Li) oe 
& 
a A 
_ & tm sé =) 
— << oa 1 
ha | y a 4 J Lil cee 
< lal OF z= a =a EZLz 
=i EO fe 3 ha ml =—s 
Le ”) Ik = ie La {I Foo 
im a | {C axl = Zz. 0. oh 
cc til eo li Li lJ | | ra 
k Zo ~ aw = = “4 =. AA ~ = 
lil iw = om he i] CO td td ~a aA & 
wall = cl co = — Lan al a ox x “a - Oo & 
ux az eX - re a 4 tx ~ xs ~ ~a Ff CO 8 & 
=> o uO s o | al oe | Li) bed de Le aed o ~ = Go Co Oo t 
Ow < or o Woke rg <2. FF “a ©¢ © “~a -« @ Cc © ©C @8 
oO oo LJ & i Ee m> 4 Lil Lal SC 04 - i b- + ~~ oc oOo @G “= oOo 098 0 0 oso & 
Fo ‘= aad fe) | To } a a , — a = ee _— cr is co co r = = = = . - 
Were &e Zh ao - a - AaOWwWwa& =) mou Omc = © oF oF G@& © oe oe 
ts r— Ll Ki = F- - rhe <= re oa Fe | oe | — = a) =] = «c = od ~ —- — 
LJ ld a & | oo Lu | ke! Li o< oOo x ox cdWa rn Wwwr ee . . . = . « _ —_ da ra _ co «= 
GoW Wx oa” 4 Oo Wl — tbl TWMre i “A.J nna EK rH = FHF FP HH SF +t ee ee ee ee ee 
| ee | 
| ae | aE 
| ee Zz OR § gE 
a 60O | oe RVIE 
xOR “oR | ns 
mul * mm «K kOFr 
| ee E x Re FE 
xm wo | as x OF 
ade =~ cowoo0oort » FO oo 080 Ff WwW wB COORTAERONOCOR THO Be AH 
~~ a | ee | ' OmMooooke«aBR ft WH So © © GCOORBURB TH WOW ahr we mt 
x + + nie —- We uwoork Fo oO © © © © Mork ER AIDE MO RM et fh WO et Me 
> 4 Li Le | oh Ie s OOWNCOROERG & id > Oo fF FPR LFA MR RAR Poe te 
ra Fa = li _ Lee K># a wCtyTpreigwokrk eK +t t+ t+ tft Fee Oe OWMAn MO tM Me Oost 
owl Ho oo wt uh © alto EUSse4 OW roo OGOOoOoCoROR OOOO AdenoaRaaek FOOOCCTOCOOMteOaAoOS 
| ee | 3 OF 
xR E Ze ROR: FUE 
i 3 aa mar BR Ci® 
au ie * i 8 x IK 
Ls < — ww OO | one Mie Odadaqacacdcacas BRB@Qac qa cdaca Tirt tsetse aA @dadaeaaqcdtacqc@acda¢ra¢ce 
e Lao Mu | ar J Who KIF Te FEE MMM YR eee EE EP BOR ORE REE eR EPR ERE Re ee OL Oe Bb be bee be be re bee Pee ez 
at oA= We THE KFRKRENF TF WOE KTKE ARE KBCSKeWMHHHHLOA TIT ce OR. ETE TCTTT Tete cae Coe Tee Teter aco 
AY* REY UTD Mu aay =F Feo OF NWO) FSR S| UR ROO eae NAAR Bok FAMAMAWNC AAC ArIAr' se BaMCATAAMA ALI aMsaAe Hw 
* * zeoE x x | oe! R Ww * LJ & 
x iE xOF 7A | oe * 8 * JF 
“eK K xX KEdZE EZ x COR x Ok 
KxE Le | Foro kOe FO x “=U EFCHaMr Ce * <P tu 
Le N oa a Fu mR WW x JIE = BOM ZitHe> Wty Wiese Ee KE hee 
ad x Z = | Fa x Ex x xa = x oe a a a rn i- i a ee | xz * a 
zene a J a a oo 2 ee ee ee ee J.J JJJ6 *€ KE xe * T+ 
MNWAoOto- tum TOW AOGon WW OTHE VR OKHoe NUNMOTNOWADHOAHAHHMTNOHWAR OBHownUOsT OBA. OtonrUMTOVOA OHO hMrTnworoOotoe (Ud 
BRAAMA OO Oo oHoDNmo ooocrcnr on nnm AARMAoS Ooovc sco 0k at ate eK BBA KRU NOOO MOM O OOM Me st st ot ttt tt te 
MOmnannonano © Onn fonnrne © OOM OMnAentT? rertrtrr tr rr TIT reer rrr rr tre rrr 
Th! & qcCrTagde Twc cH Cri¢T@@quwudtdciar Tctee TTeCTcr Taadtie@gctertice@cwTtTTT Tati ctttTrTciTcr¢éc¢rceé¢ 
onrh ooo°o oon oo uUowoonwxnotf aA oO tu oowoon ooococretotorocce BRotloohk tte Ohwah 
oo aeMoca ooo oo Sono oOo ooOW Ae ow aoMmocqcoa TotvonMmpooccoocoae TewWWA Ah tho TN fo 
On fu Toco ooo oo coooco0cot.Ee- ooo- wa Wwwoo MHomMmoMohc hiaMiaqanwia ReHNhR Moe ah THN M4 
woo to wos a5 MwWotontkw+5 Tro oowrnwo0 ocococeoceocqcecqccqoeceo RMR RR to wo 
ooo oMHoo ooo oo ooooooco ono atwvwoo TThohs wT wo Gtotowtototratot tr OwMAiesMOrMReHonmnaor 
ooo oooo ooo oo oooocoocooce oooe ooooce OroocvncooococCoCoOoO fe oooer0eTrvrcococcoe 
Ro eA Vo w?np WrKRon WM TNHWRon gM st Hwho sO TI he at (9 on Ww BRonrtMOrTnwrtorwnhm wr MwWheoRrWMrnweoe fy 
wp. Ww WwwWwWwOwo WWRAKR PE, BRAARoOooCooCoOe ooo- Sst i et QW Cu ty Gy tu ty NOAM MeO yMM acd ¢ rs TTTNNNHNNMNN Awww 
eet et Sass set et ete Sete et fl Of Cu fd fl WJ tu tu ty Oj ty Cu td CW tu tl 0 0) od Ct tl ft ty td 0 Ol 0 0 OO qu oD tl tua tu tu tu tu Ol ty fu tu fu fu oy 
ooo eooco caoooon0 eooeococcecoo eoce moOcos eaeoca CSeocoocoooroaoocoea ooqgooconoeocoococec a 
eco Soaqooo ococoeo eoocococeaoac oooo qQooonao eooceoo OooogococcoouCUCWoOSO SeoocoooQOormoccaio 


ooq Oc ts ot ooo cd © ooo ococeck 2 {1 © to odors dd oO <9 00 ( om Co oc GOO Ot ca ac co ce Coa mtocmwonoocmata cs 


E.2 YORTES LISTING 


432 
434 
425 
$56 
457 
Sic 
$593 
460 
$61 
4ie 
463 
$64 
465 
466 
$67 
4663 


45 
cn 
0 


00 G9 “NON A A SO 


AHRADLALBALELE LAL 
VF OWVON OU AGW © 


Wiper ree ree eee TOGO SOc oo co 


CACTCALR OCHOA AA an 
KSFOwO Yh owtowm Of So tye co 


fm) 
ri) 


ia 
fig 


1) 09) HO) 09 OAD fd oH PO 


oe eee eee ee ee eee ee ee ee eee ee ee 
MAGS OW GYR AWN ODM VHA 


Bao fe 09020) 0 


LME L 
LHZE 


LEM 
LAK I 
LNKS 


LET EREKRK KCL R 


* TABLE OF FACT 
MELEE SRRARERRARE SRE RSE 


LAT i 


IFT 

GOTe 
DATA 
DATA 
DATA 


or 
Heir 


DATA 
DATA 


TATA 
DATA 


Bobi cs 
DIDI DP 
4HAA444-4 
DDPDD 


ALOG PROGRAM PAGE 6 
sBIT-18 
5 
¢201000 16-BSIT EXP=1 
0200542 LN¢2) 
0344140 
0377000 {8-BIT EXPONENT MASK 
o200000 18-BIT FIXED-POINT 1 
o390000 18-BIT FIXED-POINT 3 
ZS SSSESPERMRAREKRER A 
ORS 1.:06.040.+ 2% 
EEC CRED SE 
g261600 14 
i 
g201500 1.01 
o 
6201440 1.0901 
" 
9201420 1.0001 
0 
0201410 1.co0o1 
C 
6201404 1.000001 
t 
c20140e2 1.0900001 
ti 


1.00000001 


PSE LESS SSE ESS ESE SS EES ESE SS 
* TABLE OF LOGS OF FACTORS & 


LISTING PAGE ¢ 


ZetCrareetererceee Re CRETE RET Re 
LNT2 DATA 0177637 LNC1.41) 

DATA C62176 

DATA 0176710 LNC1.01> 

DATA 0377371 

DAIA 01°574e2 LN€1.00125 

SATA 0160356 

RATA 0174760 LN¢1, 00019 

DATA n243030 

vata 0173770 LN¢1.00001) 

DATA 051542 

DATA 0172774 LN¢1.000001> 

DATA 612426 

DATA 0171776 LNC1,0000001) 

pera h2515 

DATA Qi70777 LNC1.00000001> 

DATA 0526 
5 CONT 

catTo LOGEND 
NEWLOG CONT 
+eteee SCS SECC ESSE LPERSRSERARAEASEC SE RSEKRSKCARARARHERSE RRR SEEKERS 
* COMPUTES NATUZAL LOG OF A FLOATING POINT NO. * 
* PERFORMS THREE SUMS AC2@K+1)8U*#(2K41) WHERE K FROM * 
#0 TO @e WECK-VE722CX4+V2223. WHEN 1/72<=X<15 * 
* LNX=-1/72LN2+SUM DESCRIBED ABOVE. FINALLY» ADD 8 
™ EXPMLN2. ACCURACY ESTIMATED AT 3X10"#-9, x 
See SRE SE CESRSCKREERSE ECR HK ee EHREEAESTESSC HEA ESE E eS 


HET SESRECKC TSR SS 


* ALOG ENTRY 

SCC CR ee 

ALOG ENTR 
PSE 


ALOGs LOGKs ALOGAT 


ee ee ee eee ee ee ee ee ee ee ee ee ee ee 


* FIRST 
i: eo ee 


SVEVMERR TST RES 


ss 

® FIRST r 
SPER RY SE SHER SE SY 
“i 


fo 4 
> CF 


RATE EXPONENT AND MANTISSA *® 


Sh SRR ERNS SSR KRECRECKSARECESEKT EEE 


i DR osil 

34th a:uGcos3 NEGATIVE ARGUMENT 

sl = ey ALZGSO03 ZERG ARGUMENT 

TAs 

Rt River MASK QUT EXPONENT 

DRA 440000 BIAS FRACTION 

=TA % 

Le rae | 

=TQ ai 

TEC 

u=RR ra 

Sil BE Hood WUANBRTAS IT 

=T A EXP 

rit EAP 

PMU 

raTA LN2 

ex T EMP 
eR E SAAR ALLS SLES SEE ESS 

FALCULATE CX“¥2/290 20 RtVe Zee 2 
SRR PRL eee eee ee 2 ee eo 

FLO a 

Fan R+VB"2 

TATA -0VR2 

a i Meh 

re 4 

roe a~Veve 

tA S2OoOvRe 


4653 


ee ee ee oe ee ee 


eet bot eh ook 2 Eb fet 2 he ok FS 


[ie a ek ey ee 


ps oe le pe Pe pt 


oO © 


ENS ONO SOS SNS SN 


a 


= 
ar 


—* 
—7 -_ 


GOroesosaoeovsormeceoceocooococ: 
“hag ag A OT a Sd OSA A Ad 


Cy et al ew 2 ae ee 
_ = = ~ -- —= 


9 


ih 


: oS oo 


eae at 


FSO W Sao ooo cao fo 


SENSES 


a fod lm 


“yng 


Td Od A MON Ag ad TAS 


co oo & 


Pipi bbpAAAREAABABBABARABAAARLEBADBBAEA ERE BEEERBREABEAALEEABA 
“4: €4 to GO) 


Jo OOo oc oc ooaacehoacnickoacqccocaqahiocaacs 


SCs Coo Toco SeSoeec Cg cooococ Aco cooOG 
Whe SoSH Oe Oe SOF Oe We Oo 


FWwoewmMeHogtOmewO NY YY YS OMAHA 01 On ca 
eS 0 OY 


cot pe tat pS 


‘Mmm MOoocgoeocororacruds 


OA ut Ao 
ELE 


= 
_— 


eae 


So To Ooo miogododda &a & 


eo. a 


Se 


wees 


+ 
CAC UCC On GU on Ca ct Onn A LF 


ss et a Ee ee pe EE pe * 


4 
ie 


ie Ca No ee 


e 


ro Fo 09 FY Fa ny Mp fi 


re rs 


= a et = 


—— 
i 


‘vat 


en 
Hod Wa ad ee a ae ay 


“y Ee fe i Pe ee 


24 ty 


= 


oo i raoorcoc 


oOonoaon fc 634 


Bhat hat t 


a 


466? 


LISTING PAGE ¢ 


? 


PROGRAM PAGE 


ALOG 


E.2 VORTEX LISTING 


OR OAH MTMOON MH eA Hh OTs OOM MMe IM OM coe GG bh CO eS ei Oe IS 
THT ON YN DOWD BY DPW RRR ARP OOOO COO Om ooo oh oh om 
PMN KOHKNOKO NO NOM HNO OHHH OM NOV ONY YOK NN YN YON YY OH HONNMNONHMMMO Mow 
SQoce VIC SOTO SSCSSSCSOSSSSTOSSSSOCOSOSOSOOSCSOSOSSSSSSsocescsoaoccoeGecoes 
COPSOSCSCSSSOSTDSCSCOSC CCC S Sore seco oe oS CCS SCSOSoCoC eS Sos C SC Seo2 coo oeoos 


BA BRR LBA RAL PPAR RAR BLA 
OoorVrerse ose 2o Bevo qo gGmiorwwocGica rcHee eft coon eo Gf oS aS OS Dee Oo eo oo eo oo 
De ee ee ee ee 


- # Fs B&F & OF ff * = . = : = = es “ = - = = - tI = = = - - i i /* a = * = 1 # a a 7 = a = = = 7 = . = * = 


BARRA RR SR ORR AR AR ARERR ARR AR RA ORS RRA PRA RRR RARE 


~ 
“~ 
ti 
& 
x 
pas | 
x 
fas 
~ WW 
a 
Ww 
“A k + tr 
i 8 ~ = 
mt >3>C—~«<C/Y) iJ 
x * ns = 
=a os € sail 
~ FF now} ha “ 
qq -~« — fi of tm - 
ad nm act £ | | x Lae / 
x ad + KE & on | 
2 <c€ aA D WY =! i=] a te 
J + mo + <4 <r fal laa ™. Lil 
i) es a | rm oll wy tl 
* Ez no acs — cz z > 
. EK ~~ ww Ww we & Ww = i ~ LJ 
—_ => «€ & Ww «ct £2 Land ian xe Wie 
3 + w -F- wv wb oO _ al wt nw 
Lid ya an & FR FO £ oa = ms Se Oc tu 
- u nn om EK 23 + oO Lal a eA ends 
« & ~- «ww + ty Ga il qd t J = HuWwMo rh 
J —~ €@€ @€aa a xX & = — (I Li ~SESTotrto 
= * + w+ = wi Wd oOo or xe = HQeigjown 
w) an A ft A we fl Kee ODO Lal bh Oo USP wWowRn 
ad nn © & so zc ~~ 8 We 2 ae OS i i i om Be By 
a ws wv a ~~ w~s+t wx = oo a xZCtUxZe « 
i Cc acorn ct oOo i Loi ww | Weer | Od 
) 
WO (0 
Oo wo on 
40 hs © Che 
mw ee 
nk E i ae oo 
x x ra - tu oS ~ n= = « 
BRWME = | x = a tu? at ot & Cu 
~~ x. «-« K&2AE x bk xW wAoOo ORO ARR Howw 
a (6U6Stll iti SC FC OK -~ a - Wo Li) Oo fro lUkKko| 6 wore ef 
Ww Ww lk Ree C9 =a LL! dc FK + O Wl il J str MW ww et wow Ww 
._ 2. fceRErRFERE CTC XX G&G xX FF = FC Ws - To Whe Kaeo oWooWtanes Wt) | ase 
ear 
EOE 
eu 
mie 
IT KeMK Cc ee Tc <T Cc re jC crt aad «ae TTacacre 
- AXD-eFEE ¥ADrFAFDFAFDFAFARF TAL KAMA TIL Ot hR re YP RM eae ee IP cee 
Mo YSETCHMRKEX JEP ETE CHAETCECAC Ae TCHAAROAEWNA CWO MTTwuMaT aH Cwatt TcoT 
kK LwLLAKLEwRLELALALALALAL AL AL YUJI UD ARF IUUN OR Aaa ee ae eee aA eS UO 
aoe 
xuFE Ww Fm o fu _ A 
~ oe o xa o ce J = 
KR uJ uo WU ahKo KO sm ot lil 
* ou oO ano Meo RoatWdoat a] 
K - wai ff —) Oexer MUS Tow ceaMpo 
¥ xe KE az aed HATEXKTITW JIWof2eKeTtaecdadd wi 
OKO cA MUM TOW OHM ocHAWOPTHWBWROKoCARHAMHMTNHWROKHoRUH THOR OKCK NA tTNOWA OR 
TTT NNHYH HNN N NHN VOW WDODIVIOWUWWODARRARA RRR OOOO ODMH MDBOAAHTARAAAM 
HNKMHNHYNHH PHM NN HN NH HHP HH HAHN HYNH nH NnNHN NNN NHN nN HONDO wmwwY 


iJ lJ Wiikoeecrero ow 


om [NTS NK te 
WO Ou Mw cy cN wn 
“a onto Wear 
eo oocococooc cc 
oo oeoceaocoqocaoa 
oo oooccococa 
= | = ~ 
Ow ._“7We ore Je 
aw ZzZG2z22Z22Z2Z2A 
i i wo J J LK 
hud Lid ld LJ te oe oe ce Oe oe 
ra A WwW 418 
ow Wr Mt wh Ho ft 
o- “oor Uti 
oo ooococoocce 
oo oocococoocce 
oo oocococoecoocoe 
a: Ts ax 
EzY WE Wk > Li 
Zoe WOZCTLEeEeree - 
“eax 6H JJ LL LL EKO 
~! 
Wid We eee e ec of 
= 
Www oMCcoMOnTrKe oo 
nt oMoxwsrhR TeaDo Uv 
—o~7 Wootloottle 
oon oqooncoooooco > 
oo cd oaocrTco cc «al 
eoo oa0ococcoocea - 
= tl 
“ Ww 
WW 23 —- YU F&O weDdwH 
OEWEEeE ws NWO CWYHOoeE-eYMe 
oOITWGAa MOoOIZLCLcCLCoOA 
Li Zz 44 AX ili alcatel in 
z= 
Geil AWwearere cwWwo 
= « i) oO 
NZCoVMesJooNnaetwwonNnewk 
~WVFoOMNOoOUVUWVeKRNoOotoTl 
QeWtlosMmoxaxaWeUston 


KForFooorocoococoeoacetsS 
Zoxooo0,;-o0o0ococon°coo°ceD 
WoWooo0HHAcoococoreco 


371 410 453 
1? 3 


362 
6 
o 


36 


no 
hh 
ww 


319 


Gidegir mmm woah 
MpnwwoN ee OM ea ee OW 
eae nm Nwwown 


use 

oo; 
he uUUWUU FS 
SLI ECOY JIE lal ooonaeE 
MUZTEAGeesgoV*#e6NhI J Ke 
C2 ee oe ee ee as as ao ee 
Moooocococoe CONWAATA Whe 
8] OOP ORAAKR Ow 
fu YNNHMMONnYPnHn 


467) 


€ 


LISTING PAGE 


PROGRAM PAGE 


ALOG 


E.@ VORTEX LISTING 


Qo Ww) o mw _ 
® tT on Hao WH 
t o 4 aa) 
a iM BE om rm WD OJ an 
n | as wo uo wT 
~ (> Cc? a axa 
> et ww w Le] wo Th 
ow (J % i Huo cm CF 
— (9 as ek a r= Cy re 
qw Co Ly € nwo na WD 
oO (9 eh Ww (9 wh m fh. cu fu 
_e (ac ~ oy | =u nm 
mo Oj 4 ae wr Cd ow 0} et oh cf 
wm “Ww i w tf nor mAs fl 
_ ol mo t) eo f% vo = ea OU ni 
oF Cy oo. Go wy) 9 ot) cu foam = 
Tro fi) 7+ So WO ch tT Mw - tJ 
“re tut) © | ni ne rea 0 ¢5 
om mm oo wR. cm a pe 40 a OOP 0 W 
a om Mw t") oo uw om | Nnotrte 7% 
-_ ea) tr) (9 ) tu n= we ty 7 
wT (% fh (1 4 09 o no es TWwoWMAOtca — wT so + OrowwnOnah WMo a 
mw ™ 6} fh i wo vl oo voy oOo. = PM et co Ltt ot WO Deo te 0 fl 
oir hae oJ © > (9090 000 09 Gl ee wT WI i m V0 1 MHD to 


NOMA OURVTU HK FHV OMHHNOWNTUDSOHTKOAHTHOOKSCTHORMOR TORR TaAWes 
MUN UNCOOM ARORA NDR A NDA OH ONN OHH THOAHRTAOWMM tTOTWIG TOA, 
POY ON YMUP MUO NUNUNO MMM OMUNENONNN OO ONNADp aah aNUGUNw UM) 


wt of Aa ww tuo 

wo oS ad z= o ~ oO LJ 

SZaeookL Ld “aE (9 0 ale et fil LJ > Joc E> i 

ZERO WJ Saunt WWW hey ke Ibo Oo tbe > ahWwussS uw O& TAEt 

Weearht Gaze e BZA T LeeLee eo tee eee UEC ZOO WI hl ooo == se =e =| 

wea Sete i. i dl ad dd od od J) Ld Kd I dh I I CIEL CUM OI SO x xX3sTXxX} 

TrwrontoGaNOoOMWP WON oWhWR TOON KR BH DOH Of DBMYMaHWVWo one mB ocococn 4 

WwWOOHON Oa Ona HPtaean OM Moe tl fi oe ORO om rh nn cm 
NHN Hdwot t tered OO OFT OMOMAMt+rerts?r MOAN YH ei fu nm 


E.2 VORTEX LISTING 


G00001 A 


CO fe 


~OvOVONTKDAaLHWH OCOVONTUSLWNMe 


219 


EXP PROGRAWN PAGE 1 LISTING PAGE ¢ 465) 
VORTEX SET 1 | 06 
z THIS I35 & COPYRIGHTED PROGRAM. COPYRIGHT 1973 BY VARIAN DATA MACHINE CE 
06 
046 
¥ RELEASE 19-13-73 06 
” O06 
ba EXP 06 
¥ o6 
™ | 0c 
TITLE EXP 06 
S000 SHE SRE SRE SOWA ee Re Eee SSE eS Se eee 2A De Se SE ee See 
” : | x 06 
: REAL E x P ON ENTIAL €C E XP 2? * O16 
* O06 
* FUNCTION: COMPUTE THE EXPONENTIAL OF A REAL APGUMENT. THE METHOD ™ 06 
™ Paid a TO FACTOR THE EXPONENTIAL INTO A PRODUCT OF * O06 
™ — PONENTIALS OF POWERS OF @s DOWN TO &**-8. THE REMAINING * O06 
bal CTOR IS HERES ORT ED BY FIXED-POINT POLYNOMIAL OF * 06 
ol D DEGREE. * ns 
* ~ 06 
* ENTRY: NO SPECIAL CONDITIONS ™ 06 
- cea * 06 
*" CALLING SEQUENCE: JMPM EXP © O6 
me DATA -- ADDRESS OF REAL ARG R E.i 4 
* * O64 
* EXIT AB=E#R ” GG 
¥ VFL=0 IF NG ERROR * CS 
ae *¥ 05 
*® ERRORS: UNDERFLOW: AB=0 * U6 
= OVERFLOW : AB=MAX REAL NUMBER * O06 
” | MESSAGE ‘FUNC ARG® OUTPUT * £6 
bd BOTH: OVFL SET KG 
* ™ O96 
oe ee See he See See eee ee ee ee ee 
Cee RSS ELS ES ag 
* ENTRIES ® Ce 
AUER EDEM EHF A 
NAME EXP WS 
LS eee SE SE Se) St te 
* EXTERNALS @ ae 
Pee SES EES ES SE HE 3 
EXT SEE ERROR MES ces PROCESSOR fe 
EXT SNML REAL NORMALIZE 75 
Lo Ra aE EES : i 
* MACRO *® 06 
TEL EL ESS Ea | ns 
Fan “ac G5 
IFT VORTEX-3 D.idge 
IFF YVORTEX-4 D.idée 
GOTO FRHAWRe De POG 
if T « VORTEA<1 N.19%4 
GOTa , FRMURS D. ibs 
EXT SOK REAL ADD BD. 2s 
CALL sek nH. 2% 
GoTo FRMWRS ; yy. i 66 
FRMWRI CONT | De. its 
TATA ~ 0193134 BCS REAL ADD D;. its 
SOTO FRMWRS DD. Oh 
FRMWRe CONT De ive 
TATA. C1035410 FPF REAL ADN D,i06 
FRMAWRS CONT D. iaé 
EnAC is 
™ FLOAT FIAI TO REAL BP. its 
FLT Mac a, os 
DATA oinS4#23 D.106 
DATA Pl) Peis 
EMAC DB. £85 
eee eee Se De eS 
* MACRO *® D,it6 
ee D.i10s 
Flo MAC D. 186 
BATA 01935420 FPP LOAD De ids 
DeTA Pcl) i. i886 
EMAC G, 0S 
(eee ee oe ane 
* MACRO *® uth 
+e we ee cs 
FRU MAC CG é. 
IFT VORTEX-3 H.106 
IFF VORTEX-4 Ds its 
GOTO FRMWRe2 D.i06 
IFT VORTEX=1 D.i06 
GnTd FRMWR1 D.i%d6 
EXT zQOn REAL MULTIPLY D.196 
CALL SQn D.106 
HoTd FRMWURS De ides 
FRMWRI LCNT D.:%96 
critA 0105074 BCS REAL MULTIPLY B. = TS 
GOTO FRNWRS is eu G6 
FRAWRe cOoNT D.7958 
"4TA 91595416 FPP REAL MULTIPLY Hn, i166 
FRAWHRS CONT DB. tas 


WP £AM eR OWN HAO AWK oOWON OCB Cie 


Woo WOO WMT BM ee eee ee OOOO COCoOoO oo 
“yd CA fa G3 Poe SS Gg GD 


MOOR CRS WP) Cp oD 


foo co OOo ae Stony ooa na ceaceosoaocroeoonaoce ae ooo e820 0O £OOC Soo O AC ec oe ae ce cece oe coed 


POI OOOO COSC Soa ooo oi r2ccetcaoaao ve oaceqoooe £cecoeoceoc0ececececaocoocoacoacsocanae Ss 
PIO S TS COG USVI OBS OSC eo 8oeqgqaaqadtie oqooooeoece cseqoce €geaoqooCceocecsqococqacocscaqceaqceqoog 


A 
al 
i 
4 
4 
= 
“} 
—_ 
Co | 
CE 
—! fo 
a 
S¢ 
ec & 
ft a 
56 
ae 
tn 
tc i 
a 
=i 
Ft 
F 4 
, ok 
oo 
= 2 ie 
oe 
76 4 
Toho Be 
et Ph 2 ee 
is 4a fi iz ia 
, aoe 
fe te SO 
i © re 
GOD 4 | 
O20 72 
OGgerSE 
oog 7? 
noo072? 
ogog7s3 
T9024 
occa! 
GEQBEe 
T2065 
GoOOSE 
"| + a = 
HY +} 0 "go ra 
cagse 
ocgE? 
gog¢a 
nooo) 
rm fi of cS 
af Ct ae oe he 
nogges 
Ae ee 
ogoo4 
org ss 
SG094 
‘tht et Pa 
ror as 
goocoo 
roe! 
GCGini 
Goce 


469 


LISTING PAGE ¢ 


= 


PROGRAM PAGE 


EAP 


E.2 VORTEX LISTING 


MTP OSM we e14 GG re boo ea OEP UD a Wom CSTR Pa, OO ew SU op a rsa! PW? Ms et er Ps, Oo Oe ee a a Se Oo ee EP m3 Ba. “3 o0 yo fs, Go 
9oCCC Gn nnn AHI NTI Kh Yoo Speer. CF OO? MO Ss ep ee ar <r i [SU ULE GW bs ed za >.6 LE OG 49 te PL Pe OP 8 Co ae a ets oh Py “oy Ch oe ~~ 2c Oo co a 
Oe a I a ce ce ee a ee eri t. ere gp a ae ea gee ee ee ae ee ee ee gee ed eit tJ fed Fi: ! rd tu ed 
Sc roeqoc os Cocco Soct GSoC SCS cet SS S88 Seco ser Bio eoC eG Fe COS Se ceo oVe ert O Cee Cee eF oO oC Oe ter mise SOoOD hh SIP BOG oOo oe oOo 
Oqoo ococdlooro soso stoacsesestoAiece rococo coc et eses sou taoiioasi 3st S&T Oe Bae Sts Sotto eR om co a ol CP ioe ee oa —J tte aCe ts eS oS ee 
*, 
WOO DT A I A A a tf AO Rite GEE a a AS A AO A Do Li ao ee. Seng af owe tare oR 8 AE OS RAL Mot OS BE at te 
SSocooc O.Peo oo Sh SOD 4a C1 fs Ch Oso co ts Se ete Geto OS £329 OS toe Net fT) tS ats T. 424 wry So ce ta : ce Vtiem =” 1 i ‘G4, >. ¢ tits rag 
ree eS eS ed ed eS ee oe = el ef eb et ee eee gee pt es fed ese ee a 4 i | = a aoe % 4 = | 4 f - 
a ee oe ee ee oe oe ee oe ee ee ae et ee a ee a DO Da Do Oe oe a a a ee ee al ET Bey pe) Oe ped = Fam 
= 
viel 
i va 
Fan co] 
Lid He es 
= vv —| = he 
a om cL => — 
Lit oo —“ = a 6a 
oF - oO - if 
FY Lil & <I LJ I -4 ad 00 4.3 
_ ie Rika = a pom — 
=~ = ao i Oo oO Of @ 
Lil ae _ =z - ve Od 
A A A vag t 4 a te = | ele 
bal i aca = nm (=) 
oe > —/ a 2A oO i= Oo in] call aod 
=| a a C e hal I ao ~ ) 
- — til Lil x ul lin +f 1 — aa *~ 
“) i fe ot x < mi La nbd 
— Lil i is} ) Lal Lil 
a. <a 7 c. > et 4 Po - x ? - _ 
a lid i) Ga. <r had il L Lit Lama i pers Toes | Tr 
Le oe Lae Le “ oars oo “) Le Le ho oa ) 
or a — ig i 4+ Fo fo 
“ o tt 1 wT _ | | w | a 1 ! iw 1 i 
at o xx UHM om 9m o *~ a xe f Mx fy Ww ~ *~ XR SSX 
se) WO LJ i) GO i) OS oe ok Fr Li = e& Wwe ec ole wT Lt tl tu) Llc 
Ae ne ne tre = Hos WH — F- =a Fea AS ~ = Wre=o ~~ uw" be Te Te oe Be ed 
Ww on on MYeYEOMETZTCE oF uw kllds Ww mele fm WH ort fri (i = Crmhkreoe Cet’ t. 6") 
x ee = DOc¢ovregcr ak wm OOoOtvwe OOe¢r-~ we fe 5 ae | “1 OrmOraoe Cea wow 7 
-— of o & ->Pkr>ranhh ok © >Meewn Soho oe G0 FBR SOF kh BH ts cS SMS ASS SFSel amelie Lal 
rs 
mee 
op ame - & 
- ¥ La] ™ LJ tt 
BU Gay Tru of}dhCUNOFE Oe aE 59S JO mo Ww frac o« Lil te aE ww! Zk coe i * m® Pl 4 
& 1 iT 2 ee oe © Le oe ee Je 2 2 2 QGreer Se Sear aS aoe eI xX ete me be Oe em Ee Oe CF Fos it tee, ee Bite eee PE rE 
RETCCEe eK TTTEe HH TUL OWOXTOOTOOTON ew CLOX TIDAL OFA TEP RCCL Gt be Fifa w steak we OM OR Dae te Ee FOO lite ef! LE 
WEAR WwW * EFFEC OouWE ELH H IH PW ORD Ue OW SEH OW Des Lee Lk OLD Pa esi ed ee bt) 2 te) Li toi eo rad &. Perrier veg eo ee 1 MR ‘a SR O 
oY * Ci s Oe x C)® x CR Ge eek 
* oR ror _ iu © KOE = tu ae ¥ “ri 
4 * (ok * Uk te tf & kU - td i ROR * th ne 
med *e¥ or * FE a 4 = «ct E2AE t = pa m 2 Fewer HF TH 
L. # eee e* fe > = E ££ 82 tl Le = LL # nr Rey Retest ff PK 
ae * x +) ¥ * 2 a YY k “tf a o tf ¥ Mh = x FF GHe & as 
wk eER LL eRe WL Le L@#we ERR i“ lL ee | a eR MR ve ie co oe Ow He Lo 
STHWKROVNM Ft HOR. Ca UM TN CK OH cHAA Hr HV Veo Prnowlni  DQRonWNI TMNOWAOC OF HMO TIOR OM oO es ff be. Oo oh 0 09 te BN eee ee qe chan dw 
BOO 05 Oat mI MUANAUVUNUOSOMOOMMYHOOMET TESTE ENHNHNOHHOHHHCOCWOOW Www hs, oh BREA ROO OOOOH nm oS Ste co oS 


oe LL LL... ee ee ee tea td edt: fry fy oy fe] ty 


<Tad (rT 
tJ me m 
Cu tu c - 
ooo fu 
ooo fF 
ooo t 
ooc <> 


H00006 


hats al ee eed ae 


oo mie 4ucea 
ocoocooc0cosn 
qoo0o0oona 
ooccca & 
oo oaceo Ss 
ea Oa 
oooaooe 
mqoonwcre: 
ACMHALUA 
Ke Monmyo nr 
“Ji es & 
bm OW fo “4 
DArPDIrDyTE 


Sococoaocct eocoocoscoeoqooao0c0edceae 
qoococpvdcovcocococc0c coccocc0c oc Se 
oOoococo Cc o90 00 00 C0 Sse ce Cc coo coo coo 
ePaqgaqccocvece0c Geqccco0f7esc Ccoae0sc700 6 
AGWQW OQ WQ GNM MT 10 10 ee ee ee 
OO WOAUWhAQMK- OWN WLW ONHU SB Whe Oo 
SoqoccooocoeeocoocoKrcracaocooocoaq 
wuoooooooCOMNcCOCOOoKYGWDUUUMUoOoCOoOUnNe Ww 
hUCK-OGoer- AOTDKAASBAABUOK SLA 
ee OOCOFOC OF Ke WeWMeKlhmnoonce- 
UeDoonuaognos,asaTHoowoorr DOO C A 
Qe OMNOALANMWOOWWNN GMA R Re VQ eS Om 
DDADIIPADDIDIODIDIOIPIPTIVIpDIDATrTIPOIID 


moococado0cTteo 


 2Fodaqaqaqqooce0o 
No0ca0o00oe ogo 0 
ooogogo0o090coa0oe 
CHURCH Ab PPh HHA 
WQMNK OM Cb WA) 
oooococqcnocqce s 
Cre hLLAOeK- AHhOw HL 
Q0OrKrFrOUrFK Oe 
AOLULD HW OVKO- uw 
KON WH Orem ON) 
AYPDLADYPD PPA DD 


2705 ¢ 


oocdo 
aeqoo & 
& 3) co 
oonoc sa 
cAcaca Ga 
“Och & 
aod & 
oo°oco 
or on 
=o? Oo 
wore S 
uanoe 
ADD DP 


OoOowv0ocd 
coceca 
ooo oo o 
Soa oo 0 & 
anno 
hie & 
a6 0608 & 
wooo 
AOOLA 
=f) = fi) 
me Bh Oo i) 
“or Ore ty 
DAD DD 


ciWwodcocoooocaoon0cs 
Hoo0oe0qcacococoonooaooeqoce0a0dqd ad 
HqAqg qa goc0n0 ae 0g Goo go 90390 
eri epee ee OOo o aoe a qa oa & 
8Ioog oO 8% SN ON ON ooo on 
UAW WK ONO U hn Oy OU 
goao0oqco oecooo8t+ coe oo Go 
Hoaoo Woo OC OF UUUO = 
Oe-OMHUIUBOMNALRAAAA SL 
OMe Ke Li L)eweK Oe eee Ae 
nHoWAoOrerKeOWNOoWMWNownwnonk 
LIM QOONKKUHnRhKhOPSW WoO 
ADADDPDIDAPDPPYPIITIVOD 


qoo7Tc & 
ooTouT0oae 
oeoooe 
ee eS he pe 
wee SOO 
we oO 
ooqoc & 
on wgor- 
hpapiath 
Qe — De 
Se ee ee 
yNwacdo sy 
DDDDIDD 


E.2@ WORTEX LISTING 


om ton  MWhyro6r ny 
KFOwWOyvnagb Whe Ow) 


Mh = es ee ee Re 


eee 


ry 
“J 


Mery VMmwron n 
mm 9) 0 MaO~™~ | 
Nuon neOwWo SN 


sTA 
EES EEE LESSEE ES 


DoD to D 


Pwwar 
I H-4Ne 


- 


EXF 1 


EY 
ExV+i 
EXxXA 


EXPT 
* 


* GET ARGUMENT *® 
PEeS PERLE RSE ES ES 


LDX 
LDA 
LDB 
STA 
JAP 


CFA 
$TA 
ANA 
STA 
ERR 
STR 
LDA 


LSRA 


SUB! 


STA 
JAP 


ADDY! 
JAP 


Tar 
STA 


EXPP 


_- 
en 


xa Wee AX HM? 
= 


KM OHMDDMAD 
i 
' 
0 


4 MM CO FMAM MMaMm 


m 
x 
ry 


EXE 


PROGRAM PAGE 3 


LOAD AB=1.0 
INITIALIZE VALUE=1.0 


INITIALIZE TABLE POINTER 


LOAD ARGUMENT INTO AE 
STORE SIGN FLAG 


CONVERT TO ABS YALUE 
SAYE HIGH-ORDER WORD IN EXA 
GET EXPONENT FIELD 


SAVE IN EXE 

GET HIGH WORD OF MANTISSA 
SAVE IN EXA 

GET EXPONENT 

RIGHT ADJUST 

UNBIAS EXPONENT 


STORE IN EXE 
IS EXPONENT + ? 


NO 
IS EXPONENT < -? 7 


- 


YES 
BUMP EXPONENT BY 8 


-PBSESELERASZELE EE ERRARESAL REEL ELE LER ESAS SASSER ES ARSE LES ERS LRT EES SS SS 


®@ LARGE 


mMEGATIVE EXPONENT. 


SCALE TO S BITS RIGHT FIKED-POINT ® 


Lee EERE ER SAS EER RP SSE REESE ES ES ERE RRR SSSA EER RSS ERE ER ESS SESE RS ES FS 


LISTING PAGE ¢ 


EXL1 LDA EAE GET EXPONENT 
JAZ EX! SCALEB OK WHEN ZERO 
LDA EXxA RESTORE HIGH WORD OF MANTISSA 
LAR l SHIFT MANTISSA RIGHT 1 
JIF CSOs,EARY EXIT IF SHIFTED TO ZEFG 
oTA EXxR SAVE HIGH WORD OF RANTISSA 
INR EXE BUNP EXPONENT 
JP Exil- CONTINUE SHIFT LOOP 


LESS SER L ELSES ETERS SSS ERE SSE ES GC 
* ARGUMENT HAS INTEGER FART ® 
PEELE SELSEEL ELL ELE ES SSE ESE YE EG 
EX1 SUBI S 

JAP EACU OVERFLOW/UNDERFLOW IF EXPONENT .GT. ? 
PES ELE LSE ST Eee ee ee ee eee Eee ee EC ET SRE ER ERS SRE Ee SE TS 


® EXPONENT HAS BITS LEFT OF 8 BITS TO RIGHT OF FIXED BINARY PRINT *™ 
EERE ERS SALES ERE SR SESS ES PS SCP RSE CRS SER SR CREP R CST P SS STS e SST ees 


Exe LDA EXE 
ASLA 1 GET e*ExXPONENT 
HDD! ExTO ADD THELE BASE ADDRESS 


STA XPT STQFLC AS TABLE POINTER 
Sak MC SHE SOC HREOC REE Soe SOT SE SRE OE Ee Oe EE DOE OO ee 
™ LOOP TO MULTIPLY BY E**CPOWER OF => ™ 
PES SSL FP SSESISE TEES SESE ERCP ES SSE TERS Sas ee 


EXLP LDA exA RESTORE HIGH WORD OF MANTISSA 
LASL 1 SHIFT LEFT 
STA ExA+1 SAVE 
ANA EKM 1 CLESF HIGH BIT 
STA téA SAVE 
_RA ExA+l RESTORE NEW BIT 
LRLA 2 SHIFT TO SIGH 
JAN ExSSs MULTIPLY JIN E* R®CeleeR> IF BIT SET 
LOA ExrT 
DAR DECREMENT POINTER BEY 2 
DAR 
STA EXPT 
SUBI EnTE TEST FOR TABLE END 
JAP ExXLP LOOP TILL ALL POWERT OF 2@ TO -8S DONE 


MAF EERRRCF SESE CKKTRAEKKEK KT HE SKEREK KCK ERK RTE REL REE EH 


® THERE REMAINS ORLY A FIXED-PDOINT FRACTION SCALED &© BITS RIGHT. *® 
- 


* APPROAIMATE BY POLYNOMIAL TRUNCATION OF FOWER SCRIES 
SOE SRS SMe SH ME SAE ee Re Se eT eer Smee are ae ee ee me See ee mee DR ee SR See eT See me mee eee ene Wee 


EX! LIA EXA RESTORE HIGH-ORDER WORD 
-ASL = LEFI“JUSTITT 
STA EAR SAVE FISED-POINT ARG & 
STB ExA+1 
LASR 19 SET AB=H/2 CFIXED POINT> 


470») 


OH 


oo oqocaeo & o -4¢& ocococec altos coco coooccaco Loco Ga 
HHAAGAAADHH BHO RM Am HG 


oD Antn oO Hm AA 


s J as 


co = 
J 


= (3 3 CW Co 
mimo oy moe gy 


=r 
— 


J i io fo o> & a a 
Om a i 7h oh iT 


onal 
“a ah ¥ 


ie os 


Mm on Gy 


1 {3 Ts oc 
Hm iAm Am 


3 
i 


hs ie ie 


Cis iss iin 


Acasa Ao 


iT 


se pe CF 


Fo) Tp Fo fry 
fx wy ew Oop OW OUD Oo} we Ovens Go fig m= Cory) 


cocoa & 


coco c5Kecoasoc oS coho ge 


non mnn = EPR NT MM 
Oi Ww Por PMO rm PA Ph) ee re ee ee 


mo ro 


ri 
Os 
un 


oo oct e 6 Qo = ocs ococoocococeo ao c7oOo [2000000 


ro 
tal 


ron fam my nny 
me fe te OIG) WO 


hie Sw C3 im 


fe a fe 
oe ee 


ra fy My 


ocd cc 


coc 
oo coc 


fa fio Pa 


= 


Pi Fi 1 rn 


oo 
ook 


oo & o 
MM) 


ooo cood o 


2 o> © 


rey Pie 


— 


ai oOo Soa toed 
io & 


nota no m3 


a 
f° ai! rh cvs ts {Th eh 


2 tS & 


eo co 


oOo oo & 


00 43 hoy a fy 


so odaoacd 


oer a cocoa co 


CS 


fs. fs. fs 
Fak faa i ior ei Bf iy 


LPC in te. 


ty 
“) 


ry ry ta MD 
C2 oN oh 


eGR a ot et 


i 


os 


Pye sw 


' 
hi 


ON 3 


We 


red Oo NM 


a a 
vg a“ 


Pera Ta tyro 
ON CA fa to 


“eh Od 


Fig 
“J 


cc 


OO La sy 
ta | "fo! 


3 O0 Oo Oo Co 
oP ee a Pd 


MPI To hy ro his hi 


4715 


LISTING PAGE ¢ 


4 


PROGRAM PAGE 


EXP 


E.2 VORTEX LISTING 


Pe CO 
oO oo 
Ci) 
oc 
2 ts 


WO 0 
= <> 


CFIXED POINT) 


EXF xX 


ADD 
aAMU 


2é? 
33s 


tJ 


000113 124107 A 


ch I> 
t2 of 
Cu ta 
“cS 


to © 


a © 
co ch 


EAA 


Aa” 


2s3 
290 


TWedeg CT Caice 


sowokowWuow 
eootwnnwWwnNaooor, 
ootoxnYonxHoe 
Woorettt tto 
ooocoooonNhWoo 
oH co rose fF oo cc 


THMwWro-AUO) TI Ww 
wet st wt fi) fr) Cd Cd Or C 
qo eaoiocdeaoccdcdc 
oqooovoonornda 
oocoooac 4) 


EXIT IF ZERO 


VSOsENA 


itd Pe 
Nh oh 
Mj mcd cy tu 
Ch co ale oS 
= (2a €) 2 cS 


pT OR tsa 
m 03 cD 


> 

F 

E 
MULTIPLY If 


0 

+ 

\ 
APPROXIMATION VALUE 


SIGN ® 


23K NE ee ee 
29S Oe ee 


97 ™@ TEST 


= a | 


ee 00 
aac 
moe 
oe 
wo wD 
i So oo 


GET RECIPROCAL 


YES 


ExF 1 


xrm> 


—! e Le 


Ty wl Pe ia 
= SS ac oe 
Fry OF OY CPO 
oo M2 Som 
oqo oceaoc 
oe WO wo ade 
oo > lo oe 
(4 
oO 
CI 
- oa 
- & 
x bi 
Lil 
oO 
- pa 
< 
ha 
ao 
a = 
kk 
z. 
— 
_ 
J 
Le 
> 


O 


LOAD RESULT 
R 


= 
+ A 
rN >> 
xx xX XX 
Wii Wh be 
I 
Keo Tear.xei 
ce Aaofe 
a7 ade 
> WN 
x x 
PY oe | 
Tm OAR @GOHo 
oo ocoos7 
Ho ©990hOm™ 


IWedc@e ct CcCqi¢gegs 


ook cMNNnceon 
Sono rnnconhos 
oCotlorswsootoos 
Hooxnotttn Teo 
SoccorWonMoo 
SCeregononFwoa ca oa = 


TNWROAMUM TINO 
AMON tt ttt rt 
Sess SS SS! 
QOoocoeo0cecooo 
ooogocooocoao 
oococooorc 2.00 


XFER PARAMETERS 


0 


LEE e ete eR ES EE 
* ENTRYZEXIT ® 
VERA REKCREC ERE 
BES 
FSE 


EXP 


Ono0146 


POINTER TO ARGUMENT 
JUMP BACK FOR FORWARD REF 


EXPP 


Wh. 
Sn Mae! 


ome 


Thc dea 


oo~nr oo 
ooo oo 
ooo oo 
voc “oo 
ooo oo 
oo o.c 


mRonunr 
TmHHDYPHH 
aaa Se Se 
coooo90 
eocecaco 
ecco0odc 


HO3149 


319 BREE ee 
320 @ OVERCUNDERFLOW #*# 
3221 MRSA ee ee 


i <3 att nw | 7h \ co +s *, 
“ul ts, ys ay fas qu i 25 
ert i" n oy A r 
ore a ne ee eb eS ct a 
o> omc oc =] < = us 
a £7 4] Ca i 
Tt oc fe ete tere oh coon 
i 
tl 
x ce 
Lil Go 
> =) a 
te _ i=) mM 
-— a I Lid 
-_ <2 Lin 
iW.9 . r am iy 
mH Ld a <I 
2 Lal —) 
Ba Lil Lu 
m— a — 
2. “4 | | 
lil i) <I - 
= lil > 
~O = mM I 
3 WJ yo x Tle 
ti i tte xz => 
To TH = oo 
LJ o. io 
-o = od liu] 
Ld ld lL oS dal a=! Lal 
uwu> wo ta) uWm 
a] — 
he + + 
> Lil sa | fj 
x mM Lil # a. 
kad Lod 0 oe At east td © ld 
a | ie oO 
cr Od Ue mck eiuwth 
As a Inc wie ce Lu! £3 E 
= ir mre (©) Je ™ rye 
| 
| | = 
x x x 
Li ui! Fa 
tw ™ st in. hs onor i 
Cu Ou Uwnttu. tum mr fr 
mm “mnt 979 rr r9 


TaIerTe@grtuwiwga@tT ect te 


KR Tusa WoornfoM Mot 
MowionroocooorxnohkwoocoecrtT 
OoNrnn OO OMMoon orton 
Te cCWMNMN MON THK onhhkHo 
“—“CHocooooc0cocococococncocesc 


NwWheoaedorTnNwrkoxsWmoTrnh 
ONM OVD WO WOW DOR AR RAR 
eoovcc0cocoecect oc ccoono 
ooocceoceceoecocooco 
eoocecocoecsmecoececeo 


Cee RECS CSCRSS EEC CS TRESS EEE ET ESS ES eee ea ee Se eS 


= = et r = 7 
i 1 i 


x * 


ExMC Oe 


SeCeee ee ee S 


Y EY 


_* 


VALUE 
FLOATING POINT MULTIPLY 


SAVE B 
LOAN 


an nae 
— Ao eS 
ye to 
MC 
ee 
= 
oO 
ad 
Le 
ow wW 
Li 23 
mS mel 
-—~O «4 
* > 
xo 
uo w wW 
~~ & f& 
® o nm 
ee 
mm mM 
-~Ww Ww Ww 
mae e& 
=a o—4 
+ +4 
oOo f-> ci 
os 3c oC pe 


tial dab ok bb bis 


K 
le THe Aatk 
own Fe -RE 
fa “i Jj) 


343 EXPT 


344 
345 
348 


Oh. 
rr 
mt 


Ti CerTecice 


oo =ohRK Mo Ww 
oo ovooenok 
Oo onto oc (ta 
Wo xHot et trso 
oo oohwWtwdono 
oo ooococoooce 


WoT wh © ew C09 
QU tu tu! tu tu fu fu fo tu ed 
CcCoooo ecoeoue 


qooqooqncnecoo 2c gc 


Ooaoodcadgn f ti 


APONENT 


$43 2ET VERE TER Se ee 


ae a ee | 
+ ' aE 


GN FLAG 
a 


VE 
UNCTION VALUE 


= 


E 
Ap | 
SF 
F 


wT 11h 
Se ae Roe ae 
tu Cy CU tu 
moO & 
coo cd 
coc cs 


= = - 


16-BIT FLOATING-POINT 1 


Co <r <r 


MUMMMeLeeEE 
AWwMVnoactd 
Mommas 


en ee a i A om 5 oe 


4/72? 


LISTING PAGE ¢ 


2 


PROGRAM PAGE 


EXP 


E.2 WORTEX LISTING 


mS AWM FINO Re MTN Obes OCP OS oe TP ao ao es OP ee ee oo 
WWW WOWwWD DRA ELA MRA RRA BOO OOOO MOO GOOMEAHAAMRMA Meson 98 OC BOO Ors rs virteted eter 20 Ato oon 
MMA MM MOMMA MH HOMO M OOM YOM SOMA MMO MAH OOO O06 rrr sass sr se cr ow Sst te ote os thet 


ee OF ED QO fa ae ce 


=i it! oe re a 


Ca v pe 


Set diy ey 
Jn 09) 04 Of 
fot eo oe ek oo sr 


mone ba Bese, 


Se OE Ts te weet EY 


709M) Wek cee ow sow Fe er oi 


is “an " a = ee oe ee = (t i c= = 


ScooccjrcoqgeseEecsoeteocaoc5$casc cocaqooccc coco ciccHocca6td sc ca ccc cc Ee eS cc oOo So STS oS Soa Oo SOS oO Soe SS ooo ee oo ee oS So ee 
Soc Co COO SC Goo OC 68 SF oso oarr ec goo oe GBoEeoooose gq ocoeBt ore. gq Sc F660 So 8 O28 ea cost ac rn ssa Geer Fem wea Sree lame Satta tt a oo aoe tac eowaot 
AO U0 MONO NO M0 WO MO Aor 0 0 Oo 40 IW DME Dw IW DWE Dw Ow ww ww ws eb 54 sp yw aps Aaa Da wy 2 wwy yo Ne Mot Sa ee ad re 
AM m Io OO OS ooo OO SwoO OO OVS Oooo Ho Gog sco oC SOC Hs Son So crag¢T3 3 ce (288 sm Ste fy Ch kate Se See a ee Se oe Se es ee eo eb oe ee ee archicad ten alate de weg ae! 
—f ee ged eet op 
AAAAr 
ee x 
‘ * 
= . fo 
hd x“ ” Led 
a i * — 
a8 2 | i 
= ~ = P| i] 
Cd _ 
i= Ke A | a 
= W LL we x oo 
WJ be 9 LJ “4 Ww ut) 
oH oO fear ” mo 
LE lw a ZLEbuw La A= = 
m4 | bet ao rs 
Ode wou octe i=) a 
a as <e t= | * 7 
1 oo WW a i MW Lu} <I | ol 
a - Antz & w ZI 
Wi — IT WeOoOo OF} tm 
xz i Oo xX=Zzoa Fe na PF A EH NOM raat a OF OM OR O™ KS *, x OW 
md + wstxX wae on. wo nN wr © on a a on oOo nm wo wo ts OM ty se a a ee es or wu 
k= ul ba KEW - ti ¢«¢ 86 4 4 +f #§f 1 o wn FY ©) FTF WM ww ' ft F FF EF 4 8 i; Oo ns YW HY FY WW WD a 
ww x * &* EF & ER F x x& XX & EK F&F H FB x» *§ *§ + FE FH F > *© *§ + F&F & EF xu 
b= b> be - FEF = =x kK *§ &§ EF F&F F ~*~ FEF ¥& ¥*¥*§ EF KEK FF FE xy *£ TF§ KF ¥F§ KF §& #§ *F& ¥F F&F FF EF BK F % = 
bead ded ot — meee bi Ly) HY tf Ga & wf tf tf VU fu fw © & WwW Ww ty ty & ft & YY tf ty Mm FF @ @ & & tf fd ee il 
6 oo fo Qo 6 pg a | f _ / — es ia 1 iF _- —" ‘ ae ‘ei a el i ‘at Neat _ ‘af Ma “ ‘a i Sal ‘Sf .- Net” f “~~ OO 
| cr Frist we *¥ s+ cx EF HR KR F x* **§ *+«§ & KEK EF HR x x«* ¥F§ KF KX * HK KE HK EF FF KF HF KF ee 
www oOo ooo oc x r&§ Ke HER F&F KR F x ee 0H & EF EF RH F® x + *¥§ *§ FF KF x + ¥*¥§ + FF EF FEF ¥ OF 
arte =a wets Fe Ww WwW WW Ww hk Ww Ww Ww u Wu Ww Ww WwW wl Ww Ww WwW Ww Ww WwW WW w Wy ww LF Wt lk pee 
ke 
| &Y 
* Ie 
al a 
“uC 
¥® OG 
* 
wow oo oo oa © w ~ounyTnNnoMo dW com WOW MroOoA TwWUtohk WR fut ee 
ao i= | | o oO o —_ SeSooconreA MTR oatudt #—MOoONwWxnAHMoHnnMmonoonso = aQooocoWeaepnUlnynrxHxHo THMMUMOADODeo OAK Mwoo e4 Ie 
‘o oo ! Tr o oo 1 oWwooooonAoNntxwotik _ HPAUNUWWeHNh tTHMHMoMoc tw 1 tTrrortotrti tare OMe VW NMR DWOoOM tore oA = AHS 
omnw fF w#&# ORK HoMseOot Vom aOMOMOUWU MeePoh MWY tehRaehK RH > ao ¢aNeowoenfjn oer swt WoMvpastwowk Mon Wo £ eo 
onRnm - cod onRR oomoooooohoocondc 4 oF oPFowerer rTM ae DOUOtKR LH Coo nmncnottocwmwWowW aties DP oo wt os 09 02 Wb co 09 io Wa 
Teoh OF CU whee m THtdrtoetrotast et ta cette tae tae POLO so fWaoWwotototitvtitutut Cutt tte ddd ial cant Hai ok LT 
cco HMWoOoOoOocoOo UF UMERRROTCCC CCC COCCO OF OoOGCoo ec MoCo oC oC ec oomoO lif HREHREOGQSGOOSCeS3 SCO SCOSCSCRE SSO C SOS Sa ROC oe OL i! a 
i] * # a“ 
= lL & m Lu) & wou 
m HJ x Wj E x OX 
= COR MK WZ 
{Tite OCA eR Tete eget tet ctcaict €et Titer artacwccaattaa ea MBOeR CTT eee CAE TTT eT aerate OFF i 
Frere ZW EFE REE RFE CMDR BER eR eR eRe RE Re eee Ee eee Oe ee Re Pe RE Re PRR ee Re oo Oe PR be RR PR PR FRR RRR er ORE ERE eRe ee PPR RP Pe Pe Pe 2 
TIeTPOKLeCAaetTaoavenrose ECECaadetCiCTidit cect ott tit att ceca itaedcIetTOUoOR MOC Tee cCetetet eet Tae Teer Tete oOOoOe WS 
RARUHSHYURAARAAURWHUBFF RE RA OAAAAAAAAAF AWAAAARFAARARARAAAA Mr Aur ee CRIS EER ES FOURS SPEED EREREL PUES PUEVESES BASE ES ores Fae eae es 
aek: | oe 
RMR | a e! oro 
=m ik mise xe ES J 
xXeaE “- HAE Ld @4WwK om mw tO, o We Oe 
La = = oe wEeE Ce * (aaa “=F aire Os 
x x x x xxx xXx x ” x ” x a 
Lod ta) la) Ww WWW wl =F Lu x= Lil tT uk w 
SCnAMATN ORK OK CAN MN THY VDVA OMG ocoKH YUM TNWOROKRSGRHKMUNTNVOKR OM oCOANMMYMT NVA OMonWMOTNWOKR DAH SBANMNTHVRAMNH CHUM AN OR YHA NO+TrNWKA Omori! 
WOO DWwDwWWWOWA RA RAARA RA DODD MOD GH OOH AMAKHAHAAKHHAHOGOGCKb CCV OC Ot at ta tet ae A AKUMA tt rrr TL 
OHM MMH OAM MMMM M MOMMY MMM OMMO MYM OOOO UAH YMM OAM AN terres Ketter rr tart rrr rt tre r tr rrr rt rs OP Pr rr or or ao 
aare«r mY TTC CTI Cet ttet teat CItittTtatTt ttt ast 
oko o Cocoon HWAtKR CAN TV HR MOMHYWYAHNMoNnNnMokoono 
omoa a] OmMvoooooe os oN tN UM VYe Ne OWoMoaoatuw 
oew fu Hens OPtM eM MHMMOUUNMaAaNHoh MNrtaew ah Mos 
Sao rh. o ovcocooocecflooorno Moon ok owane TMH an DUMP HK 
Tor o Tourtdtrotoetest ttn otctrA re tata t PWN s 
ooo 2 OCcooOCOCC COCO COCO COO MCoOeoCoOoC CACO oO oOCc oo 
ww aD CAN M TNO ose AMO TtO DRoaeWdnNT NWR oA WOTth 
ty tu cy qu OOM MMMOArartrrr¢cr Ft TOM HNN wo www. wo 
tu tu td cu Tt tut tT ddd td tu ot of td tu tl tu od @ fd td Cd Od Oy Cu 
ooo =] oooooecocococooefcon ocoomoocooocoocoooeaocoocce 
ooo o PoocccCeOcCCOCOCOOoOOoO ACP OOCOo oO OC oCOC oO Coco 
oo c oocoonococoqcocqocece ogcoocoocrcroaoqcoocooccqca 


E.2@ WORTEX LISTING 


452 
454 


= 


tim®pbAABRL is G fa 
Ahigne Oyo im cap: 


0) ODO) CO yO” 


+ 
C 


HY OVO qpawi ye Aa WO VOuw nV he Oy 


CAAT CICA CICA CAA CA CA CAC CO ACC Ch ca CACO CRON CA CAA OC CR CHC CRC CA COCR 
Wye Oo DW oI Cha thr Oe WO 


bBAnRALAWIWhIG LILI dit Were Mri eee eee Re ee OOD OOoOoe oC Se 


EXP 


* FRACTION, 


See TCevreeznereu 

* EXP ETRY * 

Rete ees 2 oes ES 

EXP ENTR 
FSE 3 
LIA | 
STA 
Lon i 
STA 
LDA 
JAZ E#r05 


i 


<Me xX OOM 
+« « 
Lt pe 


CERMX=C54K9708— 


K)) 
SERRE Pe ee SO ee ee 


PROGRAM PAGE 6 LISTING PAGE 


EXPECTED ERROR 3*10*"™*-3, * 
~ERPVPCRSE PE CRERE ET EY ee ee eT 


RPsERXPRs EXPAT 


SAVE VALUE 


is. FT <—ER80 
YES: RETURN 1 


SFR CRESS SRR ERE RRR EE 


* IS VALUE GREATER THAN #+88.02969157™ 
PSSSLERSEEL SLE RSE R LES ER ES ES Ee Pe SS eS 


FSB 

DATA MAX 
FST ’ 
LOA i" 


JHE Fe 
SBSFsECTETtTSTCF RASC TT SESE FERST SESE SSS 


S' 13 VALUE LESS THAN 


-180.2187 * 


QE TCHR EET EES ee ee ee 


Min 


Hes 
oper 


JAP | 
Ree eee Se 
* Y=U/LOGe * 
ee Oe Oe ee ee 


Data Lose 


T => i i 
TP FRSC Bec e ee Fee eS 
2 reyrt-1/e2 ™ 
SPUR F RR RET EC RCE ee 
FLD Y 
LBA “ 
JAF ExFCOS 


FSB 
LATA | tea 2 
Jhe EXFO10 


EXFOOS 


EXPO1G <1é veo 
(RES SRS SARL SERRE eee SE SS 
" CALCULATE 2 19S THEN * 
[ee en ee ee ee ee ee ee ee 
Lpa veo 
ADDI sZt 1 
ASLA > 
any THONG 


$7 TOON 


SEFRERER SETHE RSS 


" . Y-N ® 
RRM SS 


» 

: 
HY ‘) 

PB 

1A ae 


CES TRS See 


= =HWELOGS 
XLT Re Te 


ak WW 


‘4 
roar\s 

IAT iA > 
writ be tired Te 


-_s i 
eet. tee ee 2 ee BS 


TSEC REN SS 

* CALCULATE GENDFINATOR * 
TV CSC SEC SCC EST SES ee Tee eee SS 
+ 

FLD 

r | 

DatTA 

PST PEO 

ery ee 9 

AT 

aa | ‘ 

757A P429 

F mil 

aA TR eo 


“Srrrre Tee TT rT Perr r TT 
“™" CALCULATE NUNEFATOR ® 


ee ee oe ee ee ee ee ee 
a 7 ri a 
Bape r at oe ESE 
a ; 
ral tel 
= ee He ed ae amp ee abe tc oo lie ee a = A ee ee ee ee ee oe ee 


CALCULATE ***2 


KMD 
420+4"e 


KMESCFESO+REED) 


153120 44ER SC FEO 4+X RR! D 


! : 
Ae 
= er we = 
comAe Ke 
eee iS ee + a - —- i HK ke ed 


C 64? 


tall 
ae 


‘ne 
os - bi e 
+ The. 

a ee 
ne 

wa. git! at 
oe oi 

es ae Li 
re 

La | 


Hrnaouocoonooo 


tm + 
a | a! 
4 a Pin 
a i Is ile 
a6. 
La Ca 
i =—_ = = 
tf) f. 
a i 
a 
: i + i 
7 a omy git 
4 
Ti sot 
-_" © | 
" Pay es 
- ih AF So 
ll a ie 8 
a a 
ty 4 hy a 
se «2 (4 is 
7] 1 
ee ee ee 
T) 2 re ¢ 
Ae OL he Ls 
a yy re 
F ry cu fe 
" ag 
Lis @ 1 Pe 
nm 
I = i a 
0 1 hE 
os oa ** it 
t + fe oo 
ee 
-, = ph 
Bee - 
Ri is 
i oa Lo 
Ts #ony 
Loe 4 - 
14 sok © 
Wy Gus 
It 44 
es -& oe 
rT a oe i 
i! ee 
Ta | 
Lt cw TS 
tT 4orr 
i" os = ‘at 
Ta | .b 
ee LS 
iin | Pi 
ew 
* = F 
a! me = 
a aE 
es 4 ! ‘ 
Th a a5 
bee by oe 
Ti a 
= a A gt 
‘ae 
T! : A icf a) 
aa cm 2 
Veith 
my tan € 
Ai a t+ dal 
re a al 
ae | - 5 ” 
Bie 
Th 3 
=" © aa 
a | ol 
re 
=, m 
a | = a 
Lm | a 
iF he Ot 
me | en a | 
ha kk 
Te Fa os 
all ws ts . 
= : 
i. 
"i 
ae | A 
a ¥ 
Ye ae 
i! i 
Sf a 
+, - 
rt  - 
a | a 
wi E 
r 
i! 
ry A 
Ho F 
TE - a 
L! « a 8 
i : 4 
a 4 
i! i 
“, i 
a! ss H 
- i 
ae 
Tt 
=! a 
Tr ir 
ai | 
i, 
™ 
het 
7 
‘w @ oF 
Le 4 
Fi a 
a eo 
Lt i 
a 2 
fi 
— = 
r, ; 
A! a 
| 
-=—_ # ' 
r ' 
— / 
ny 
s' FF = 
i | 
aie | 
a | 
= ff 
LI ft 7 
=a ‘ 4 
- = re I 
} i + 4 ' 
| 
ie 
ri 
as! i 
r 
a t a 
=, . 
i a] 
rT * 
= = 
eg , 


fi! ot 
71 

* 
-, 
ie 8 
igh 
i 
be 


=> CF C3 2 aS Soe 


. = oa a, ay 
ee 


a 


a 


e& 
8d53 
r [a 
A tap tall 4 
* cf € 
i 4 ta! ll 
USSE 
nm 4 ee 
i hy 

a ES 0% 
Ca Sts 
ocr 
it = 4 
|) ee 
tf o*y i 
t461 
if al P eee 
ee ee 
ee a ae 
v's & 
mA | 
ae Sy i 
a | er 
a 
e gt 
Hades 
f) 4 fn Ws 
Fe | 
it > b&w 
346% 
Aa ee 
Pe, a | 
i "y £ iL 
fe oem | 
Li +, ior 
oe a: ae eT 
u ty a 
eS a =o 
i Sp Ff I 
Ce ee ee 
Ls 1 

"2 


ofl ioe a 


fe ek fe 


roe 


Se 


ee ee 


er = 


or ee 


Ae 


. 


4 
i” 


Honor hone WB FM FLOM oom oe Yrs in wo f. co Mee fl &4 FUT 4A hs mo Re wh] mM wah, oo = aC CU SWS Ooo oe OT a hh oo ot 4 oJ i 
MWoowocc eo occas ss rt et eat st Au tu Ou Oy Cy ty Od 0 Cf mom r} MMe Mrs reat as wow Wy UD OD G9 oD ba We bw WO WO 80 0 wo 4D Db v0 AD a ae oe hs 
OV tt tt i ai a? es a a a wT tr st tr th «fF “ft tt fraser + Tess T oc i” i i a wT ow *¥ Wowoered th croc «fr cr r “oro wot sth fF cr Tw + 5 
hut oh OO a a eT ie OO a ON Ut 
ogoaoorocaceseqco 2 ooocrtota oo oceo 2 a c ero = = eon & co S55 oF oso fc a ¢ = Sms oreconmocs cc ooo coms ooo oo 
OOOO OM MOM © FHA 8H HMMM 9M 8 MMH 9 ON MM MANA MMEHMO MH wf Mer of Mees Oe 
ca eQooonvsv.Tv00070 aoa V9ooOCPeCoCoOnF 8050 coOSo CO F&F 823090 2 FOTOS & BOO GCOsTr OeO FO © NHHOCTTM AFT eo DB BGoOorsesveaqc ecSoo co 
T MAWMWMwMHW PHYA YAY ‘4 MYHMHMwM YH 64 i 04 4-7 65 04 M4) ‘3 Mw tes i) 0 i wo ae ee i) HMA. (oo oe ‘7 i404 24) 041 049 £9 09 4 Lo 03 (4 
nr = 
&*) 
ha” 
had 
a 
<< 
& 
tat | = 
r i 
imal a 
_ 
- = 
_~ ra 
| < 
= Lal - 
LJ > td an) 
aa = te Lil - 
_ L <= - = a = x 
ja <r = “ ar az a | q) = | | 
ms io _ Ww Lad “4 4 a — a a 
Ll - - bel Lid Ge lad Le Fe aad 
& aaa qc : - ie rm a & he Po < <= 
| a | aa et oad eet m a | | 
= —_ 4 ox x A rv = ad _ pa | 
Kew S&S WW 4 = “4 1 re) = x Pa — =z wu = me 
- wWlid OF J = oO o z kn Le Cc oOo - co —- oe | | oS 
haat ps IY ww € 4 ~d WW ~ _ = * a! — 3 wa 2 — — i an Ets 
t= 3 F-cw bh mae kt 4 o < rece kt oO ca — i tt) —_ Le wo 
= . 24 FC Wik a = “ = = ~- a m = 5 oo ll iy 4 tl Lal 
| iW Wte&wn J > i ee Li 3 Yr} wo > > =x wre ikl = [=| lal = Oo i La Lal > 
-_# Ere &Ee> <= oOcoz> Li. te Yr gf x & Y -_ Eero ZT > Li. o& Lam Xe > cf Ye => & 
= > Wher Cr pid Tide _ la cT f& maTt f& - & mi LIne Teo es oO eHKO wo = HO At 
< ms }- oe oe aor ae ee <r Lae Yew | Oo 2 oO 4 = T ..c) aa AztY¥o § <r ™ te ETAT <i hd FOC) 2 << 
= ai og I =) ms] -e LW ai aX u # i) — a - kl a Oo 4 “4 oO Wi i) ha lil Ow 
= J e& Eeavona> a amnASs> LE = - we +) = i 2 QA> y i fewAavueaa> FAR > a | 
= ee OF CWAAS 1. i —S—J2IA@m 3 — wi fa il CI ii OO. = OE aA c eS OO A SS WwWAAdTt oo A HAAd tal 
- Gotmotvcc A . + £4 To on cmAa7 aH =£ Tjiw =z & = w Z£ MOCH TH oO =£ = GTiEvnccw RA Aa dq@uidcdceH mt FA 
- ; & - 
x - " sie 
a r = m - 
2 = * m 
- . - 
= _ = i=) i 
= “7 tal = F 
z= 34+ ws FF + fo wie —a—- 866 mrt zr oo. + Tire - ct .- «4 4 
toa » oo ~ - —_ = oe el -~_n _- ,_ == ed, ~ ~ se = ™ ” ar - not - 
‘o> €£ea mez = : = etm “ - zm x qm . ~a © - i =¢ ¢ m@ dea c cdc Ma« ety 
; ZzzrEezr THaEtztSr = “ <=zr 2wt £2 a rn. vw arcn WO o ww PB a ZT itZzt 2ZH wD Strata trS terctr Tae 
= Ba UU TOnHOTTam AK Aa OO He HA OoOonR UF UA nH mo mm EF OHO SH Ne A otodourt hm A OdcMtort OCR 
ated A FrEorFerFOOoOUD © A Fre Oo Ue -rF + = os errFeqe o o oo «a o Kw oo uO oo =. FororUuUuo io A ForFUoG FOO 
“) a ai AX Jo jAKxXxX xX Ox oe ae oe i oe a —! ! F ax x 11% ~*~ x x KX - © Asi xXx xx Xx 7% ee ee oe ee ee | oe CT IX IX A 
_ 7 : : “4 os 
= ; cd 
| all 
a p ms o = - _ me oH } a oO = _ = 
CTEeCsTEeETeEAAa = Caren an fCTTh Ce a Gea & Tin ws “4 @QecdeaAank an a oOo {€@€&idanAaw 4&2 o @f@tAaAaa gan 
Afte-OeOoZzteFAAE £. AA Tana Ad ABerd Ad = a's Ez Ot. < x «a  AOCTAE Ac £ o AkKeZreAAa FE Oo AarFARE BREE 
HO Hiu0 cgaocc 7 o wWJIHACT™ 17 w_ i “| oe er | ~ al 4° =) wy & aodaAadt” oe es ts -_ aAMdeHeaa3d. 64 =~ JMG aw 
bad of = “, " © x = oe , 
a @ | i © © : © _ 2 a 
mm OX REREX  « mt x. xx zee xX ae mR Xx m MR OC = , x 
Lj SHUMTMDVRA Oona MM FNDKR Mon UM FTNWK OO o BANMt DY DAO oc BHM TNDR OR oF NN ATMVWRAKRonAt MO THOVUN Oho AMT WF 
x. SHxnes eee eet YY ANH AON: MO mo sam 9% +t Wee Tt wees - HOnwMwwnnnnwy WO WO wD WWWWOWWDWWhKRnhe hm A RAR AN i den to 
el T¢c¢rrtdirt it tt ttt UF US CEE EE) 6 wT td 2 wT TT Tresr TrdTdse tt te¢rctters tt + tetrrrrt tr Se Ft ttt Py T 
= AVM Of ae a to ot ea UNA GS MMA to uu fll Ne Oe 
i C€aemrtarrtara¢ccr¢CrTrce ' £@£EQCqitaetecier atdectcdtrceyr Cetera e& acedgeite qCtTeTctirrdaccrde Eqiaidiiceied & TGecc@artatr 
UOUMAGWANwHowlono AMON ohNenN UMAR teonm MWMOCrea tu Reon] oS One enon co fu Muro nowtos HMM NDotw=aAnos 
x OMUMAMaAnM on o tl OMe Moonen OMowvwMokow MMohkhow Weeawor MxAMAMOWMnAh ow Or OOM Monat HUM MOon Mao w 
hel oSComowomnconk on CoMocoOkhaon oonNook on ooOoOhonm Ahokon oOoMoMookwoonaont otdohtooownkon suoookonon:: 
= MHYoCtM YN TtTHwH.o DMNHMNMWHN 1 NN HM HN HHapeh tH yan eh ee ee ee ee oe Pe eee eee ee ee Be OTHMAN + H-: 
Oc SHAN OD NMUUMOOoOSG SBtoNognoee aAMoOOKR OOOO ATOGOO HoOOoOoCoO §-. KFeMotoonroocaa saMnnawtiooaoa ADM MTOOoAKH oc 
ra oSnAGSoonmMOoONnMnHOOSS SHOBPAoOGooeoo SHOP COCCHF CO SGHOoOOoOOo FeCGoOOSs | eSeowronrooocoococe eo nonrmest OOOO corm oooocec 
fd 209090 09M ct od dod Tw T1891 6) BD HwwWwWwwewWwwwo WARRAKR ARR OCS Soooco ctxt Ht HH et wa Cl ful Ou fu fd Oo 0 Co fMeMMMamMO¢rd ds. 
* MNO M Dn: YPHHMYPHnHpNnNN HYHHYMHNnnnnnYynyn Ahnnhnnnwyh MHHonNwowwo wwWwwwwwww ww wo WwWwWwWwWwwww wo WwW Ww Ow ww w-* 
Lal TwNoNMMNnNYPHNHHHnHh  PNMPDVDHnHnY HHhNHyHnnnnn HHH HvwwH Hoo HMw POON HDDNHNnN HHO HOHe DN PR PEPE PEPE CE FE Pe Pe fF 
ionoocoocoopoea Ooovcocc oo co oC oCOOCOoC oO on FOOoOo oo CoOCcCS SOmoooocc0ccco70n oono0ococco0osd wmwooocoocococonc 


RO OR EI TE I SO TT IRR EE TSR oo 


? Pepe sam om = 


a 
yg Ser ay 


PAGE 


EXP PROG*°ar 


E.2& VORTEX LISTING 


Py 


*, 


or a) - Obpouw + i. 
wo Sg Bh Uy ao + w 
a a m oan wt eat wm Ww 
wo uo o Weti. tu 1 ml 
wr sf nm um or. ™m wWw 
Ol m wa ae ti mW Ww 
ef tr hs wed iT No cee cr aa 
Wow wT | A wow r 1 + 
OJ tu Cu mm “4 axntTyp Oo 
wm h oO mW wD nuomo Ww + 
wT tr T wt " Amowre i h 
ty tu ty m ae _ =~ Tn wo 
CO 4 qh Mm ty mn i ewTrn oOo oo 
wv 0 tr co wm i w Grmwwo -« mh 
ty fi Cy m “a -_ | “wn “3 a 
Oo my hs. nm Ww wT co Us is, nm Aorist bb TY 
om (4 Bm 2 nnn eel wo Oiwowwo - {6 
fu fu Cu ce © sor 4 nr =a7Trn no 
So OJ nm tJ tl & rT mr wo mr ft Hina Wt 4 
uo MOa un Pe ti =F tn fl oy = | ee ee 4 cr 
Cu fy ty fe ty 0! ro 65 ifn rat es i Ww) TT ut TI 
m wT oO tw oO ornonnh =U or MReWel —_ 9 KHOUorhw 
wT oo ty om ~ Whe hos Mee Ss Ch hao oy G3 me MWY vr sc Oe Is 
sated tf (tu tu oJ Up tc tf) fi C99 re in wv SW f 


OCOwWVMN OM YAMD CHR DORR Te HOME TOMOEH OMe The HK OB GSH OHV Tt ROR GtaWhRonktowWwaur kh fi ty 
THTrOastMMe YVUOVTPPRVOATMHK BAAN Te HMA CW MAI OTOP OM ORR OR AP Toast THOM owe, 
—SNNNHMONUNM MN Mao TPT tT OP ae no dO oe TTT A KB MOY tlw We 


2 Hn So oe = aewr a 

tuo onn wu Ornos e xoe oe “4 Lal 

dU oOo +X HOHE FD sseceoceseoWOrFrXEULwWMH OL li =F S Au ft Keo wre ll 
WoW ow sWTE Whk Bw JIE FOOaEatdtid a bab daca bkaYVOeSberase Ht eWEEK eh LEoOoOoOe E cs 
Oeeidudrt ex HXX MxX*MNMXMAMHRHR ARMM NSM ABAXKKRKRKRAKSET AMAR KM RR MMH SHO KM MBA ee toe Zs C9 i! (2 == IE fo Aw 
HARAAWWWW WWW dl ditt il PC IEE OoOoe Oh eRe eee elUlUmcSUCUCUCKC KOU 
o'TroOwM dur ww HHSotWUaAE ta TMT Se FHSe BU TMORLMOVW MOO BMH KnwWwWOotoM#MnWleasr Dowo satKliwowder ff o om om 
oSoosesc onMpPrnk HNHVHNWOtwVONUTB oho BAK RHMerAB THR YOM AARMOMMootwvwwoohoo et =| =) o nm 
Www te OM OG WUHOHAMMOKGK HHH HN HH VON NH YVHH ony oon s Www w eww 0 Ww fy wo | 


Ee A TS iid oe ama 


ee 


— a a 


a 


E.2 YORTEX LISTING XDCOMP PROGRAM PAGE i LISTING PAGE ¢€ 4763 


: t THIS IS A COFYRIGHTED PROGRAM. COPYRIGHT 1972 BY VARIAN BATA MACHINE 803 O0001 
eal 90 00002 
3 @ V0.4. PART NO. 92L0306-136C oo cocos 
4 * Of onn04 
5 2 RELEASED 11-d0e-70 29 C0005 
& ™® sf o@0s 
7” “sDCOMP bu Gob? 
3 @ oo foOo0% 
a ® of o3d00% 
10 TITLE aADCOMP oa” g0818 
L11 ENTRY OFS Y EWTR CH 021i 
le SPACE GFSy SPAC “0 Ogg Te 
1 SR Ee ee eee eee ee 0 ee eee eee ee Oe ee eR OG Uo 
oS * O08 gai 
ia: NEGagnrtTrteE DOUBLE RrEGtreeeSs TFT E32 ft # t B D *¥ Of 890 45 
16 ® * 039 cdol16 
17 @ FUNCTION: TG CONSTRUCT THE TWO"S COMPLEMENT OF A @-WORD NUMBER x 9O O801F 
i8S *® * Of Heaeis 
1S * ENTRY: MUMBER IN AB * 978 98 it 
20 ® * OS G0o2t 
el ® EXIT =: -NUMNBER IN AB *¥ 39 86671 
2 ‘ “ G3 sneee2 
5 SPCC RRS KESTER SES CRESHTSESRSERSSCFC ECS SSCS SECS SCS KESTER SECS ECAC ee Se eC ee ES Se Ae G20 e3 
os Fee eS ee Cu Goreu 
26 * ENTRIES *® Ae gonhe* 
CP? SRC ERR RL TS = SF mu Anno? 
rod NAME £600 EF fee eee EES 
e9 Mitre XxEBCO 3% 30923 
S9o0000 000000 A 31 xXDCQ EFHITRY Jf fags 
gog0000 R SE 360, ERU ~ DEO FE, - SR RSS 
000001 005211 A 33 LPeA ONE'S COMPLEMENT A Ti 98GaR: 
Ccooo0g2 c01020 A 34 JBZ XBCi B=0 7 IG odes 
noco0o0s cvogcdle R 
Cogcagn4s OD0%e2!F A oa cre NO 16 99933 
PogooSs Oasiee A 26 IEF TWO*®S COMPLEMENT & 12° BoO9 a4 
soqagu06s o04041 A e Leis 1 ee ee 
coggo0Fr OO41l4i A 3S Karo 1 CLERR SIGN BIT OF B 19 Agnes 
LECoG19 801000 R 39 JM “a0CO EXIT oo Oaog, 
eeecori ioc0ca R 
oo00012@ 0O31i1 A 40 x*DCi TAR TWO'S COMPLEMENT A ao og0gs 
Q000i3 001000 A 41 Jee “DCO EXIT ao @g@09933 
o90014 1000600 R 
4e ENG is Goa +i 
ENTRY NAMES 
o4ncoo rk 6D oo0000 rk &KBCO 
EA TERNAL NAMES 
SYMEOQLS | 
céiaceo R séeD ocagd1te R XDCL g000020 R *¥DCO 
SC ERRORS ASSENBLY COMPLETE 
Se £6nd 23 
) ENTR | 
0 SPAC ic 
40 xDc1l 34 : 
31 xoDcO 23 22 a9 41 
0 aDCOMP 16 


! 
i 


E.2 WORTEX LIST! 


06801 A 


be pe 


Ty Cy fy) Pe) Ped ee ee ee ee ee 


NG 


AGM OWVONA VAM OVOVNOUAGW Y= 


A 


3e 


WWWWw 
Woy cle 


40 


60 


Who he OVO VNOHC bij fo 


i a | api ia) ri ei 


1k De OD 


OFD NOL VY MOOV YIN VYVNMVMD OOO NNN YN WSN OOO no Om oh 


fi) Rs 22 


BSINCOS 


PROGRAM PAGE i 


YORTEXR SET 1 3 
] THIS IS A COPYRIGHTED PROGRAM. COPYRIGHT 1973 BY VARIAN DATA MATHINE G2 
cd fl 3 
= V.BDM. PART NO. 92@LOS06-14S5E iB 
= yo 
* RELEASE 19-15-73 us 
= SS 
= DSINCOS 54 
* } 
= AS 
TITLE rSmIncas ee 
FREREME KL ESKER KETC CRETE TERE ee eR ee 
# % 0% 
tal pDOwWwU BEE; P RE Git ¥ i s I. NE -v#?eooOoOs I NE * 9S 
™ e 
7” CS BS Ts BSI NN +t SBC EH + BCBS: 3 "03 
7” x pu 
* FUNCTION: TO COMPUTE THE SINE OR COSINE OF A DOUPLE-PPECISION * OS 
* ARGUMENT DBD. THE METHOD I$ TO FEDUCE THE RANGE OF & a 
> TO O.LE.D.LT.FI/4 AND COMPUTE THE FUNCTION YY UStTSG mo 
¥ CHEBYSHEY POLYNOMIAL APPROXIMATION TO FHE TeLEsCorFEeD x HS 
* SERIES. * £5 
= Bons 
* ENTRY: EDS teE¢UC0: aAt=d x 3 
¥ DSINsDCOS: BD IN CALL SEO eS 
= * i = 
% CALLING SEQUENCE: JMPM DSINCOR DCOS) x €5 
* DATA ADDRESS OF OD * IS 
™ % ie 
* EXIT = ACH=RESULT x fs 
* * ii 
Te ORE REPRESS EOEOSEOORROLRLSOSCESAOOSROROQQGR SSO SRC SORES COCO Coe CCL OL ee ee ee 2 2. 2 ae 
Cee ee ae 
* ENTRIES ® ee 
ae ON MS ee At 
NAME S$psi SINE: aAC=D 4 
haMe =ncod COZINE: aAC=D Oo 
nMAME DSIN SINE: DBD IN CALL SEQ ns 
NAME POOS COSINE: D IN CALL SEQ i= 
ee eee ee re 
= EXTERNSGLS ® i 
REELS Ee 4a 
“* DOUBLE FPRECISION LOAD Rb.itt 
rLOD Mal Beg 3 
}FT “ORTEK-3 GB. LS 
ry F VORTEXK=-4 By 1s 
Gord rRAWR 1 Be aca 
be Oey $DtLo DP LOAD 3.163 
ee a =0LQ Pe. 105 
Oot rRyihWRe By 3 
FRAWRI CoOMmtT He kas 
PATA atoss2e FPP DP LOAD be iOS 
FRNIWKRE cull: Hay ib Goo 
EMAC HW, ado 
ET ac DP ACCUMULATOR ie Lice 
LT S00 BF NORMALIZE Ue 
sere eee ee io 
= MATRO * He ee 
+e S Te SH fot 
- SE A {i = 
Poon VORTEA-e I ifs 
ITF VORFTER-4 Bis DES 
word rT ROWER I CO. PS 
ET SSE ae Sas 
CALL SSE *FEP FARAMNETERS ft ee 
sur rREMWR2 23° P33 
FRMWRI ONT ee kee 
restTr Sigsoass BCS *FER PARAMETERS ee ES 
FRMRE £35) Hy. eS 
cata 3 
* DOVEBLE FRPECISION STORE m pays 
FST ee Be ts 
[FT VORTEX-3 Aa 
| ee YVORTEK~-4 he 
Got FRMUR1 36 EB 
oT S35TO Be tS 
CELL em fo DP S1TORE ig Moa 
Gu’ TEN HRe2 a os 
FRMNWRL cons a es ae 
Tae 7105710 FPP BF STORE Me AES 
FRMWRE SINT BD. ifs 
SST S26 DP NEGATE (Fo 
* TOMBLE “FECISZTON aDD BD. Las 
‘ATH res D. 1 
Tey WORTER <3 Bei 
a VORTEX-4 Berets 
GOT0 FMUR1 mn. 163 
rey Sar Db. ins 
Cri > 7% DP ADD Di. 7g 
ord ; rRowRee G.its 
PRiw RD COMT ne TO 
LATA 6105503 FPP DP ADD fe. PS 


naga 
ocegoe 
g0vaqos 
mugod 
cocas 
fod oF. 
Goo0? 
A ps ce fe Pa 
ob or 
Cucgs 
70Gb Po 
ie 
Pog 12 
hag 35 
og je 
gon 7" 
ee EG 
W701? 
co&ogis 
Hoc. s 
reer eo 
(ie 2: 
ren fe = oh 
tot GE ie Tes 
a | ct ey “sh 
hb oe Ht C. | 
veged 
(sini As 
ia 4 fa | _— : 
HGCe6 
92027 
Greases 
totic 
Roaese 
ity is 
10232 
rohesed 
OG 35 
gongs 
OC03. 
oe ‘2 Oy 
UU i 
DOGS 
CCOo4t 
S00 4e 
ooo 43 
Coo gad 
foods 
road? 


pUGAS 
 gugs 
50.852 
Cea St 


af oS 
ou ee 


jane e& 
te ee ea 
ey ee 2 
i Ss 
oa ij ~~" 
GHGS, 
fa ee 
at a f tat My.! 
_ aoe 
Wool tb Bs is 
ip giant £ 
hall i ta sa 
= = * 
es 3 LE ey we 
| = lA 
ad 
f Litre & 
iy 4 Pint a: 
wl tS: 
” - i 
= iF or 
ma a = 
ial ty 
“| f 


“am 
mt 


1 
™ 

=a. . = i 

—— + 8 © Ge 

. AF 


| 
:- 


so tah F 


IT oo tance so & 
ee 


im tS co 
OO Mats. soe? Ge to co ee cm 


eth 


OO GO Yd WA Ww 4 


Som foe 


. aU Se 
fs a = 

i me m2 
CO D8 : 
vouUsE 
QOS - 
GCoEeS 
HOGS 
VeEoe, 
vas 

Go G ‘3: 

pogst 
MN IO 46 
veo s? 
Ou 33 
ogn0 9s 
DoEiot 
OH010 | 
yoinde 


478) 


LISTING PAGE < 


2 


PROGRAM PAGE 


DSINCOS 


E.2@ VORTEX LISTING 


Mah CHS se TC PUA. Oo ee 0D TP oP Go eet a ce es FU a 
O0 2c ers et st et et es et 0) To ol oi oe 
Sie ed et ed et dod es er so ee eS es es a a es es dee or et 
eoooo0cororm co cof CeCe Coe coco ooo oe Sec cCSc SCC oOoOooKOoOoOFe 
OSqagoesoo SCO SC SOCOS8G SHS SSG GC SHG HO AH6 OC OGCSGeS SAF OCS eo n30 & 


AMOOMOOM OOM OOM MOMO OOO MAGA me BOM MMM me me Cm 


oo occcoqocoacaocqcoqcoocqccCcooce41: 
Se ee eee ee ee 


ROAR RAGA Renee ARAAeAAs AAR AAAANnaenAeRAWWU WWW 


EMAC 
DOUBLE PRECISION SUBTRACT 


FRAWRe CONT 
* 
FSED 


MOT. COCKnSGCH NM TNWDWK OA MUMTNWR ODMH MNOER OHO MANO TMNWwoOtRonWM TM wh Ct 
SO90C Ok ks dt ae tHe HSB BN NNUMNNNO MOMMY MNOT errr st TT TOO MOYMONMMeYCe ewww 


Soe I ae, ee, ie coe ie Oe ee I ee Be | ae I et I ee ee ee i oe oe ee ee 


eS re Ti 
TL uu 


Se ee he dat 


TH OF Os i OS 09 0S ON CO oe th se tr tr ore 


5 MR A Fe 
“RE EN 
RRR EN SY 
mertrtt tT. 
, ~ERESR SF 
Loe RRA A 


: 
ete ees Ss 


1 KHER RRS H 
[* #¥ sees 


-SSooo cocoate oot Ff , cs oo co 
rt rs AS eS eS es oS oe es ie 


SUBTRACT 
FPP DP SUBTRACT 


FPP DP DIVIDE 


DP MULTIPLY 
DP DIVIDE 
FPP FLOAT 


DP 
PRP F2I% 


MULTIPLY 


FRMWRe 
1953506 
YORTEX<4 
FRMWRI 


eM 
S2n 
$2n 
FRMWRe 


rd 
YORTEX<3 


01035543 
VORTEX-3 
VORTER<-4 
FRMARI 
81igS33s5 


SLL. 


EMAC | 
" DOUBLE PRECISION DIVIDE 


FDYD 


HO0TO 
EXT 

CONT 
DATA 
CONT 
EnAc 
DATA 
DATA 


EMAC 
* FIX TO FLOATING 


FLT 


* DOUBLE PRECISION 
CONT 
DATA 
MAC 
[FT 
IFF 
CALL 
GOTO 
AAC 


“" FLOATING TO FIX 
FIA 
* SET BLOCK ® 

- 3 eee oe ee eee © Sy 


4 SEIT 


Pee eee 2 ee ee SS 
»S SBIT 


FRMWRe CONT 
FRMWRe 


FRMUR 1 
FRMWR 1 


om tS & co co Soe 
Oo fo fo 


C9 0) 29 1905 OF FO GO 
AD oo cgare 


is 
16 
1 


oe 

SET 

ne Se | 
LKR TT SRE 
169 @ DSIN ENTRY #® 
170 MEER EO ee ee 


17i DSIN 


Ave 


4 
0 
wo 


Tam 


we i * 
werk 


ee ee |e 


c <3 o> <> 


AFER PARAMETERS 


ENTR 
FSE 


a) 
o 


175 


000000 GOO0000 A 


myo oy re if 
cy i oe oo & 
—_ 
oe 
-_ 
ia 
m (4 
xeA 
‘IT li 4/r 
Lid A 
= qq 
i od 
“) -/ O 

© 

So 

© 

Oo 

So 

= 

x o 

~ + 
ace — 
“1¢- We 
Att Aw 
~" = FA oe 

{T eo 
f= 1 <z T fh. 
< r- fo - = 
Sw 4" 
OWKo Wa 
RAPE 6B 
Aa rH ar 


Tuwedcdcedcdack 


ooTtTrKoonkaoakh 
ooonmwnotvot 
oocMoooce a 
yHNQoorTrtvero 
ooonhoonoea 
oonrooHoc eo 


Mw on tUdMndrt wo 
ot of =| Ss St es 
oo occo ce & 
occhoOlG @ @) tf 
oooo jo 6c & & 
ooocTcnrocd & 


SAFER PARAMETERS 


cNTRY *® 


SVC PRE Sec Tr Ae 
*™ DCOS 
183 SESE CERES 
184 DCOS 


iss 
1sSs 


900016 000000 A 


P's, Ei PEs 
Pah; ts, 
at ie el 
oc 
Mm <> 


HOiLsi 


moe 
Caco co > 


ae 1 


=~ 


CDCR)® 


DSA 
DCUS+01009000 


QPCol 


DATA 
$TA 
LDA 
JMP 


nor 
on oh 
rear ri 


igv2 


ITWe cr crecae 


owt rawok 
ooWaHaaH om 
ooomooce 
woorwoacs 
ooonwocecna 
ox7rTrHS mio oO 


Ornowhk ou 
UUM 
ooococane 
coooccoce 
oooococe 
cocdonrocne 


193 MSM RRRRMRKRERE DR 
i194 # $DCO ENTRY ® 


479) 


LISTING PAGE <¢ 


3 


PROGRAM PAGE 


DSINCOS 


E.,@ VORTEX LISTING 


TNWMoOhe a lS 
HowOoaonm nnn 
Ann Sse Hs i es EE 
oococace cc ck 
oorco rococo # 
¥ 

OOM MMMM MMos 
oocortcocok 
Sete? et Ss ed = 

= « =o 03 oJ = 


03 O0135 
03 00196 


FE, 1 Xe ERM MH 


SAVE A 


$pco+0100000 


AC 
DSSA 


KOMooxA Mgr 
AMmnmMAooo0oco 
eet et fl 0) 02 fy) oo 


195 RRR RPM MR 


196 $Bco 


Terre 


WonMnMeow 
onMooort 
Mosoc#xo0 
TWotNno 
NHoonNnocoa 
oo~rocooce 


TNO Os tu 
oOmOnvore? + 
ooo°0co°ce 
qooo.0oce 
oocnco cco 
oooocoo 


Q00033 a00000 A 


SOO oA MTOR OA FF RDO 
OMMmoocnrcococococote*# €£$ OW + 
santana s * EF aot 0) 
SCooocooec co Cc oCo oF FR COCO 
ooomocoococooo oc ocoF#e KB SCSCocoO 
ys & 
OOMMO MMO MO OM MM Is Bs MMMM 
OoOcmocoaceo oo SoF BFE Sree oo 
| 


rt ed es es ei ae’ rs =a 
« «= «Secs DB « Pe 
anAS>S>S> SWuh > 
>» 
= o 
ad <z 
= _i 
ted | 
— 
tal “ “ 
= o A 
mt o 
“4 Ne ra 
+ =z we 
| 
«& “ = 
co mx 
| Nad ul 
Lal eu & 
>o o>>o 
| -acdae 
“Ee WHvMen 
kt! | ovr 
' a 
xx xx 
Ld Lo of LL i 
— — =z aq eek um 
re 46 £&ouwver 
oOoe#® wo # OOWWYwW 
>> G¢ fA 3S>>2>n0RR0 
= oe 
x 
| ee 
Rak & rPACce oO A 
BRR RRR OK Cece ke ox 
EZR DZukLOITOFNEEOFFFY 
KW WHOL OU ete oe 
zx mn 
| ae | Pe | 
EWE = 
FORM a = 
ewe = o _ 
x xFA oe ww “4 
zxKxKeN nu A 


Oro -wUM TDK Chto-NOrTonw 
fu Cu tu tu Cu fu 0 Cu ful 0 Of @ Ou 0) fh OU fu Ou fu 


tas I rac 
o “> = 0c > 
o Lo wh A 
oOo ao @! GJ tu 
o wT i) awa? 
o no bDwr 
o oo ooo 
t a wh 
w+ +T tT 
o oo ooo 
oO oc oo c 
=) oo ooo 
o oc oone 


NORMALIZE V 


PI Or. 


art 
quar 
oo c 
ooc 


ae oe oe 


SIGN 


1 
CONVERT TG 


= 
i f 
Oe 


Oro 
== fi Of *U 
tu fu du cu CL 
occo 
eocceon 


M9 Me 
cocc so 


a a 


SINE ? 


rer Pw Pr. 
Wey Cup “ed fel CU 
fe Oe! ht Cid 
oo oo & c 


—_ocvococ«4 
— 


a 
> 
a 
ao 
_ 
o 
<= 
| 
_ 
* 
o 
a) 
™ 
= 
= 
Le 
| 
tall 
“ 
—_ 
“= - 
ft = 
> o 
—§ 5 
ke? DK 
“fe 6 
— 2 oF 
ENE 
| os 
a= 
= F&F 


TUE Gwe Care TT 


CoMoohwWta-—-Ao-ottT& 
COowootitok=aTDaakts 
OoMiocoMboosnNeAoogs 
HoOokNoot=-oD? th—-otwes 
oOoocooxno Tc ehPhocodt 
ePooooocoocoveoaooc[l [0D 


“HO TTNWOhMo-aM dT fork oO - 
MMMM NMMNOwwowowewv wr Pr 
eCooccoocon00c CoC oOoo ono 
oCocoococe coe ot ooo oa00 
ooocooocooocoCcocCCCcC aco 
eoooccoooo Toco co 0o0 


ny 


DIVINE BY PIV 


STORE IN OSFE 


DbTP Fo we Ps ee ee oe PO 
PMP MmSe ttt tet +t 
Oe. Oe el ul A Gl Ge Es ee ST 
OCGOGHO GC Gis Cia 
Soro ocoooocaoa: 


SPI ST SPST ST OF Fi Fs Fe ey PE 
Coocseoads Soc. Gor 
~~ ee ee ee ee eo i. 
SF al at ol ot ek od 
ea Soe oS 


Q3 0848 


GER PART 7 


IN Af iF PRP IN USE 


GET EMPONENT 


STORE 


ti Pe) cr 
ts id CP 
Eo 
Tyee 


ac 
#3 


It ree he 
hh Ee eee CP 
KEI aocastea a 
eee Tk Chk Cee ene 


FRAWAS 


K.Be@eorairTrocnae a 
two wa 
SLAW GAEL Le Me aS ee) 


eect irterae 


we I a Ol) th cr 
0 Cl) eee ee Ce 
ShHico da ti 
ow Tf E+ o--¢ 
Cb et Gl oe cr cs oo 
co-oOooo ao 


0% tt OD a hh co: ee 
ea oo dd Ga -+- 
Ee et ot 
oo coda & a 
Coood aaa cc: 
FOooo 20a cc: 


Fo 
<= #7) 
Cc as 2 Se oe 
oi oc 
ee 


a a 
mS i 7 


ANY FRAETIONAL PART ? 


on Ch tt a 
BO aD) AE ul a 
OC) OL) Ca A es 


wa TT ae ae Be 
> oP a ee 
Sf Oo Se St 6 
Ch 4b > Ce 
oO OO << 


Sen ee Pw 
or al a 


a 

<= 

= 

| | 

—_— 

He 

x. 

—s C= | 

co— —_inth 

a2 gw 
—> =k) 

lo th 

he or the 

— ae 

Ich tk 

Gad, seat: 
oe TE 

eT wee 

Guhew 

Gy. it at 
on! @a 
~ i tetas: 

maa _t 

Ze Ge 

et 
+ + 

~~ URL: ths 
_—- es S 

oy noah 

cau cit ch 

Pe a a a a 

fie *LH- RH 
et Gn 


OL, EY: ys we 
a ae fh 
(ES) TE TR) Ss A 


qi cae cac 


Se 
0) cop ee OO op ee eter 
Gi cp = Oi oe Os 
Toff tH tae 
ToclLwomwowm 
=f (bP €t 2 2) Gs oc 


BoM tT Ow oe _. 


a a ee ee = A 
ed ed ee ee ed ee oe 
Oooo 2o-oo 
aero c dou ao 


40> 


LISTING PAGE ¢ 


4 


PROGRAM PAGE 


DSINCOS 


E.@ VORTEX LISTING 


CO fe et OS 


Fi eS 
Cul Cu Cy Cy Od Od 
coccocego 
cocqcqoqo a 


Of Meyer Oe 
on. eco a 


DSHE 
) DSMF SET SHIFT EIT 
roe et eet EL ee SST SES EES EST PET ST TT PPE SES eS 


LDA 
STA 
2e75 ™ LOOP TO GET INTEGER PART AND MASK ® 


Ce, & BREESE RERKRET ERS KSEE SCRE 


ere 
ars 


Wut 


-3 


FOINT xX aT OP 
LOOP ENTRY 
2 SET LOOP COUNT TO 
GEE 0) FRE SRE eS W 0 2 me eS Re eee Seen ene ee ee ne 


DiFe 
KM3 
USL 


P 
us, 


LDA 
STA 
SSPE SELESLL ASE ESSA SELLE LESS SS ES SD SS 


* LOOP TO ROTATE OUT INTEGER PART *® 


e777 
ers 
aro 
231 
ese 


“4 
A 
o 
oO a 
= 4 cx a 
cl © % ‘ 
2 = jee Ld a 
4 z= ey ao 
“4 Ke 28a 2wH 
— wl DO uJ ms k= 
rH cf ot Of WH 
_ -re tr ow a 
Tc kLk Ow a 
= oO- ao 
aii Oe FO li 
fi a) ad Le an Go 
t+ < Fy | 
vA Le. —J oOo o& - e 
Tc Hoh EO «Zz W 
oO TrtwW 72O Aad tk 
+I Wer Rw ie 
xh ER 
a = 
x ME 
x OR 
EdaE 
zxF=EFE 
n k 
aeEK 
i} Od KQP, 
x ~ 9 nil x2 CE 
~* =~ (4 + nk f= EK 
oa oc of | —E & 
xo Ff 
Ru 
aUK 
x uJ & 
= | KEE 
THWALewae eto MEAP 
AAaAaTrFOoOazm x= KFeEeE 
aoitjitjwees) fs” WE x 
REE 
ee 
xe 
tu | a 
all RW 
9 x * 
aan | xe FE 
Oornwr om on gM tn 
onMmoMminoamo mAh BOne 
NAH oo OOo 


qaaqtaadaraaqrd 


OSoxnOoo Vn Tt tToa- 


oortoeortGdonxaonsd 
MN TOKRt<oNn-on 
sUopNpotrcoaocecos 
CPoerceececcccco 


SHuo TnwhonWiMr 
OMMOoONOMd eed 
Ae aa ae aS SS Se se oS 
SoaoodcdnonqacCca & 
oo oo qocaacaa & 
qgoooooocaoooc cocoa. 


209  TINWAN Noe Oe OND OE Go OD PS PL on Oo coe OP 
Www Wm BOP PS Boh Pf Oo Oo Mc 0 0) 0 8 Co ch cn th os oh ch 

CUM TOYO OD OPO) Ge Oy Op Cy ep a Ca Ou cad Sad ted thy Oe td Oe 
BDooooeoocoosoe cco TSDOOoSoO GOO Too mT cCoOSe Aon 
Smeoaoeocevr res oo GcGeoeecoco SGeocecooecaccec anc 
“OM MMMM (9 MMM 090099 8 009 090 OF OS 
oofcca coc acac$ com “Ooo oom Oat acae f2aoqacoccca cd 


POINT X AT MASK FIELD 


LOAD LAST TWO WORDS 


EXTEND SIGN 
LOAD FIRST TWO WORDS 


REPLACE WORD @ 
3 

DROP LOOP COUNT 

FINISHED 


xx NR XX OR XE OF 


~~ _— - m (4) i4 


sUaftOonmasH oh A 


DIMF 
DSLi 


LDAT 
LDA 
LOE 


RoOnon WM TtTnwhkomMo 
SOomooococo0coce7 
UUHMOMOMNM MMA MOMMmtd 


236 


Pe HOO hy eh Oy OO WO 
fA Ooo So oO coc cs 
CH G02 9 €O 07 09 OF Oh OF OD 
ocoroooc ao asm 
TOO COSOOG OO O com cs 


65.2909 09 8.09 09 2903 OOH OO 
CoO NPM am OoOGaanaa 
f4ooe4 061 eel vet et sd 


. = sad ct of od 


Fafa et > o> o> 


SIN/“COS FLAGCONLY LOW 4 BITS IMP) 


| el 
~ 
I 
aX 
tJ 
i Le 
iJ iA 
uo = 
li 
— Fa 
z= al 
te I 
Ww 
oo = cx 
| a 
uz 
Hw Lua 
™ o* 
£14 oO 
LJ -_ 
- a “) 
i me 
x mdf 
5 RieE XX 
mM Oe Le bo oO 
tu Jw CHES 
Soe aoeeee 
HMM) ® REFOOG WU 
AaoaAnk IF > a 
xcCrE 
x ZE 
x OR 
xrek 
= eEE Or | 
TOaGe OF RL Ab Sr- 
AAPM CKRELKOIJIOM 
TOF eRe eH OL AOL 
Eu 
x FF - 
xiEeE i: 
x UWE = 
¥ UR. = 
x 6 OC Ge 
* Le 
4~aUMtTNnowWeK Oot 
Hee ee eS et et ef CU CU 
MOOoOMOOAMOMAAMANnMOM 


TeqCT_Cggqwatactqt@cttgadtaiectta 


oornWeHebowrwxae xe ona Mes Ub wnat 
MOtrocooocoo occ CoWVnA Pao rtd t 
OmMmMoocnNooonMoonfMaAMOn HHH 
Won wy THPHHPVYN tTHNnH thy thas otd st 
eontWowWRrVowUNnoNnNoooentWh. 
OereovceC CCC Coco oOoCoCcd oS 


MWR oKrMNMOtNO OK oA WOT OhR oS 
TT TON HMHNYy YN HwVvVWOwHOWwoOWWh 
OoOoooce Oooo epeooncanccaag 
oo roocoacr oooocoerccaor 


ceed CUM ee ice ue he i Greet tt 
eee oe pos rel pe ow Pol cud fel Seb ce) oa! ca 
cco cer ca cg CO retro, com COD Oy 
Sooke POST Oo Se oS oc 
Seo cooortreroa eoscoc 
foi 17907 1H 6 i Td a#ha*? 
Cac & t Cha muta = a ae ol 
ede eet as 4 
a 8 wou ed 
fa cy cs o> 
~ 7 i] 
Fa A ro 
tx it 4 Oe 
oO QO = 
4 — = 
v M XM 
” yx) “ 
a _< x 
= } = 


ea CY 
i. 
= este WOWwMOAaAxA 
+ + +4+4444 WW 
Ut WM fut le fk 
ihtEuaik EubEewkeeEe 
MWMwYMMeHMoHoOOonoOoek 
AAA Rm AAnRaAAR>S Sk T 
a OA tee 
oe Oe OS ae 0 6 ee ee ee = 0 oe a | 
(TALerPMmarFE MAAR uULOUTote 
ee ds ee a ee ee ie a 
‘ wl 
Qo 
= 
E 
8 
Li. 
THNWHROHRoOBAUMTHOVROKO 
WMUUMNAN AMMO Menowos 
MOHMMMAMM MOMMA MMYAMMmM™M 


TWeIiercraidrtrcie 


en AWW (Mo a ey 
oo rnd fro to tom dd 
OoOxnA (Va at Bt HA ae Ss Ss 
uo co st f ef ef tt tT tt tT + 
Soon NNnnAryNHnaAYNH 
eo oo orocoortfon dS 


seu Fw oO fy) 
BRINN NIP. Occ Om 
etora eet est eg ed ea Ci fol fu fu td 
ooo cqanToToTattcG 
oooqococncc acdc & 
qo oo0ococcccqcccdoeo 


7 oe al , 


Po Soe OS OG AP te WO, Oo 
Cup a Od MD Oa on Mm 
1909 OD 097 M79 09 oH) 
IOS ooo OO Sooo 
Soceocrcoocsadcea 


C309 OD) Myo OTF OF CD Oy Oo 
Ovo oo ort. oo ce 
et ie Spay geal ape el ee nee ee a, eel 
on 8 ot oti ust ah cdl od hed 
ve De ee ee 


STORE REDUCED ARG 


VORTEA-e 
FRMBR 1 


= 
YVORTEA-1 
AS31 
AC 


DSF 


DATA 
LF iy 
IF F 
GOTO 
JMP 
FLOOD 
DATA 
GOTO 
CONT 
ERQU 
r STD 


FRMWRI 


350 DS3 
351 FRMWR2@ CONT 


3S2 BS$3il 


345 
349 


0 

0 

3 
go0ne10 FR 


DSF 


DATA 


333 


aT LJ fe 


otUnp 
coh fd 
ont 
ucoco 
occ 
coc 


ont 
ret re 
fu tu fu 
oo c 
oo c 
oo & 


LISTING PAGE ¢ 


3 


PROGRAM PAGE 


DSINCOS 


E.@ VORTEX LISTING 


eat wry. tom, ta ee Oo OF Pw PB M™ fei Ct tr oy WOT. Soe oe OL eg 2s a eo ee oe “a ui ri mm ar "4 no Ty eel ay tg i, 
Wika dst eS OU NN HVWoOMeMwNpw iMwwwes< Ws OA RN Pa, tT. hm Po0G O) 33 fe Oo oO ; toc a 2 c* re ol Ov cs Mz ce = f2c3 oe 
OF 0) 0) OF OO eo oe? () HH f9 fof YM 9699 tf 4 0909 Ty FO) 03 OO OS m0" yO 0 OF OO Te, (‘? iy é (020 [fee ‘2 i ae OA Cp COT rw WN wu 
Oomornroownmoecn om Nocwoceo om TOO ao Oo) fc es em co [7D MOC Gece sy th SoS ts mimo ca 2 co oe 9.05 co ch oe Ce a i 
C317 tS eS eh i Se a Goi wo ¢..! faa ct oft i fo 2 f2 oo oo ee es ta Cs oe a tS tc C23: ct C3 ts cs i Fa eet a foe i ee | = cS & fo co Sat le oy ie » ish 
Su Moe Oc mamr Cy OAM MO MMe mM mM 0 24 Mo OA oD fye3 OO is 0 ie ee i. & THe Hie tae ee Cat : Cr t 
mS 6 a oe ol ce om Gi Gate Geis dc Ca) Soe a oa oo! Sea le Cae ta aa eS oe Ka! Ria Foe Geo Gaal ee eS eal ee a fea? Woe ee ot oe Rie as Tal ed Ci be a 
ee eee gS eo ed ee eird #4 et FF ee oe oe! = eo esd oF ee | aoe3 =f go ef ft et | | eel 
s = bl es eve tut rs ‘J 2 . et oh oo = a seo oF 2a mo * . =e 4 os co eek om oo < oO 
me Ca ea o> > = ee oS — > Se eal = fF 64 fa o> Se ZS _ = _ = 7 
— 
_ 
Li 
es 
ca 
eT 
Lae 
Ln 
tit 
om 
ta 
Li! 
Lil eal — 
al pe +“ 
a8) «I il 
Ea Lae aa = 
Zz e- 
an! Lid ci 
re lil ra - a 
_ et i) gat 
Ou Li _ >? te Lu ce 
le Ll i“ O td aad Lil 
“4 zW io i be 
Ww A aa ed = bt 4 rh F-- 
<I fu @& ‘Tt - rail iv — = otal 
ou c i J = L.. ¢- rf na ku co = oS 
Ts — ™~ Li Lam! fe “Ir =~ cL Ci iil fu * aE a | m 
_ cu i _ OFMW < ii rj + oo fF ir) 
. ~ ik ® Ll ty Sew Lil i) » rr ; Lil 
e 4 LJ i3 x ae a ee J tL * -J % i. mH 
= = | be is fu ¥ Oo woe es =< C2 + fF fe = ee ce 
. lal Lil Fa re #41 | i Lol i Le oO — & aa ) ~ a + oOo - tid 
Le oo 6Wo I Li. Ce ¥ + Sew Cc) t+ -J Lei e- eo i 
. _ kil Ll. Lil li «I oo a | ‘ thas! 
ba a ™ a ha @ , 0. i LJ * A A tv tC t. i 
<z t) — | {I <I - | | “==> Zz “4 *. + r = + -- = z. 
a “ lJ ul a a Li] aa Wide oO cc Lu uJ — tal = ci — 
re —~ i} Oo ) | ha (4 WUOMWYM + = «al ail La a mo iF ea i") 
wa Cu wt (i “7 OJ wm ty a) & 
1 | i | i i | we 
x x= xx xx se ed — * I _ 
i La ld LJ Oo Ld) La + il Lu oe + + x ce + 
b= k= =I o wok }- oS -- = | b=  =t ti as DS: (ee e re ea (') Lie ea &, Ow C5 t% i ae —/ “Fr 
Cee bk wor PoeteE uo were kh ut we i be kbbhew oY FT WwW ALWwdt E ta «4 itt wo 
tio 4 9 Co) MPOgnk Ci iM OO¢€ (} i Moot q) i +) 69 (4065 + t4 “+ ew Mwiltimes 2. Ole 2 B44 tot Gi 
J o- > L. iI ae GB > == ii aT dap =~ > ik. «I (=) o> Su a Q ras AAaAe ‘ oo fa rarmweike oF 4 ee ce ae ae = 4 
a > 
mn WJ 
x OR 
xO 
te’ Oe tl e fA “a [2A b= LI Omar fa com Omemcdte wf Tp T te a b-4 ¥ * FA 3 om foe 
OF rere Sra i hm eb ee 2 mL fF CS l- 2 bH mM 69M rh LF OF: 7 r f= += FO mm ay = fi ? MOT ath Le FS os ne m- Cee ie | ae ea io Md 
2b C0 IGona t Tei OOvWEoOac uit OItnoe Trik-kaiaitJTtose. re Tore oar a i=) = 4 H—r- Ae & FR LL “= = & Ake eZCead a] 
ee es eo ee ee Awe LAO asa On Ot Ore es Ib Ooi fab. BeHiHH7n J 79 A MIM Te i i: oa [ie ed a ee ee OLD 
| 
-_ wot co ri “ _) 
i o & a x ie 
a = = =x n> ® aS) 
} E = w E * La Ce. al i 
& & iY “ it af i» 3 404 “4 
le _ le =| Li | me Af oe 
TOW OthoaewM NWO KnenAt MPOWOM OM eaWOrTnwon om tr WOorinwes 28 Of eo HWA sTwwP co n7o eae Co eu We oh oe 
HHNoONNNwWwwowowwo wo WWWWWUKRRE ARR RAR Ooowonownnmn mo: Sannann A fk oF OOooOrocS ta - wt et et et wei eset et = 6 0 
HMmOnmOannnnnnoe © OMHOMnmOMMOmIM OnmMmnMOnn or SOOM Aonmm me OOoreono © © tft wrt ds tt + TT ef tt i tt Ss :Yr?¢tr Tt 
x qCqCTitiere Gwe T i Guede Tuk Cue C@cCCTWt Cec e&tce ce crag T i Tide CTCF Cw Tattler te 
ti ongte OV oc Ori lo ol) eon ev ee MHMMNoMWomworownlnnr or oMrakilti ao (ea 7 1 oo 
a “oo oor og orWwona © oe fu eNMNMokRhi aN MMPowpMotortWhM oe t-. of 03 eo eG ee treo BW MOao 
-“ aq ow ot oo ouooWc4 oon oefuHhx ooo otoMowWotoooa oc omMococn co ccooftic0ea™% 
4 Tro Woo : “lo wooo? Hoo WNoonrttTxsHoVoeoworrd = Oj WQioorrr Qo TC taotand 
° aTroo asa og oooow eBoo eaeacqcontNocclesonwohkht ah Oc SoocealhW ao treonrrwos 
i] on = ee | oc eoococd$ ooo crMOOoOOoOKrvH COCO OcC oO Mr OO Ao oc Pooonrno oo occooceosn 
Lis] TnOwWhe os tl Mw Nw oe 9 «r MwWhRosHMArnNwA oe UM Tow, ont!) Mt Wwhe es 0) Cr Wwe ho ew ty 
al eteetetes 0) C0) fu Cu fq O09 to MH OMNOret tert rr OOP YH Www wWwWwWwwrm RAR AKRA ROO 
ft HW tod td fi) tu -f du du tl td Tutt Wt 0 0 0 0 od tu td od od td co fo Gd to tt cu Hail Wiad Witt oe 
oO oo0oo oOoa o° ooonds CoG S820 OC COS Ce eG oeGeocroacs ooo ocoonreoc Gotcoocoicaa 
Qo eooo ocs oo ocooce oor ScrcoroerrTr CO FP COC MO TOoOc oe OomcmDm ooroocoo Pr mr MGC Coos 
tae econ oeo oo oOn0o0 Gh ec CMO Moot MO OM cme oom oc CD CMO OoOnr OF amoaaccao0oa 


MULTIPLY BYF 


YE. 
=s Se ang hens aE je ee 


quid 


=) en ee 
* 


a — oe et = —— eS SS ees 
Ld _ as Les e r 
: ; n 


ee 


462) 


LISTING PAGE ¢ 


6 


PROGRAM PAGE 


DSINCOS 


E.2 VORTEX LISTING 


oS 
on = 
wT ‘ot «t 
eos 
ome 


C9 OF C5 
oon 


— 
a 
* 


ON 22 PW Ao PS. 09 


Serres aS Se ei 
Stoetshst dct ot 
Sa cooos 
ae crec0ces 


7p 0 09 09 0 
Qooo00coo 
Seated = 
«8 wo 23 od 
AAAaS>> 


SIN/COS FLAG.GT.2 7 


YES, 


VORTEX-2 
FRMWRI 


VORTEX~1 
AC 

R+4 

$Zc 


$431 FRMWR1I CONT 
JAZ 


426 
42? 
423 
4c93 
430 
432 
433 


Tecw 


ono t 
sro fy 
ono ty 
=ofw o 
ooo co 
ooo oe 


fm + 
Sort et et 
Mmm 
ooo eo 
eooceo 
oooo 


60413 


03 


FLIP SIGN 


CALL 


on tM -inw 
CW Cu cu qu Cu ny oy 
Trg rs + 
Qoo coos 
Boococe 


090909 09 09 


“ooo ooo & 


—s 


R 
B 
Cc 


RESTORE 
RESTORE 
RESTORE 


434 "ee N wees 
$35 ™ EXIT 
426 MEME N ER 


437 
438 
439 
440 


“E£qcaa 


nHnownconm 
Hudo wt 
ooocaoo 
TTT o 
“aUuMo So 
oH 0 6 = 


nHw orc 
eae Ol) 
OOM mM 
ooooqos 
oa oc & 
moodd & 


ROnroe WTO OT Cen MTOR DN OM MMs ORO DAMME MO SRO D CRNA THOR ODOR NM TIO oe 0 ol 
NUMOOMMOMMMOM Prt er Tr TPH NNO NYY DYDD DDD RRR RRA RRR ODM OM OOM MO MMO O mH non 
TrrTrT TTT Tr rrr rrr ear tat a rt rrr rr Pr Pe rt ot 
OOSCooC OCC SCeseooe oso OG GCoOCeCC CSO CS SGC SG OSG OSs SSSSSSSSSCHASO SCO SSH OG SCSOSSGSBSCrSOCSoOG 
GSOoocOooO oo GO oCCOC SSG SGC SSCS O SCH SVS SCGSSS FOC CSVOsSO OVC GO SCCTOSSCCOOCoSMBOOCCOOCCCToOoaAocos 


MOMVMMOIAMOMO MAMMA MMANeMAMANMAMOAMOM MAM MOM MOOMAN AAA MAMYAMAAMOMAM OMA MOMOMMMM OM MMi mM 
Coco o CCS SCSOCTSSTSOV CSCS SSMS SCSOS GSC CCST CSCO FSO MSTSSTO SSO SCF CHa Tooc coco oeooccoceccctoc 


Ww tu wT - 
S i © i _ o | m | 
1 Lid | i | i Lal | Lu 
ul Lud li li Lid 
ih O0:.. + ip " in 
Ld tT = w o ~~ o m ae im a BE) “4 
re) ta) " wt ra) nu on oS = th wn Vs) wo 
™ “4 — wT wT wo + fay) m ti im oo “ 
ms w Sw m — o ir a T w + om _ 
tu T WO ih on) on bea) 
=| CJ n Bl) m tom] 
— fu nS hw iy wT tt «D a T+ o hN wo i> 
— ©) a] 2 ad tJ oC Qu tu uo o 1 th wn 
a Le ud tT w o af) nN c wn oO o o 
z T La uD ou a wo ee) _ nh wT n o 
li ® 4 Fs) wn ow on Li gs 
al Ye J uO i. uf o mf Mm 
4 had a a ~~ “ ty om K. tu Qo Wh w w *) 
< ll oe * | om wT wo ra) Yo o w fu qu co wo * 
a Zev n o w w bg ~ es i) o (% cd 
—~miaw m Ww wT wn w Ww Ww tu ie tu nn . 
| i of | | mW 7. — *  — a = wT * ov a ty —_ 
ct Chu a a 1 * i . ] _ . | . i . i 
=. WF > ve i i i i il tl W i) il i] il il ul 
Oo wz cf Coe cw wn wT * tu _ & WO n wT ) ty -_ 
-_ — oF 1H4=Ew 1 “) 4. 3 a7] “) YO 2 uo i) i u 
- WORM om ' : 
Oo OuuU cat EE ee al ol - - _ _ e ad al ad 
<= uw E bed ed _ mM a] ms — m — mi a] | _ 
eoNOB¥WwWwWo amew eg ee: a my Ess) ra iss) o 4 ey ise} ie 
LF CTOWsSss > EU: ee | | | | | l | | | ! | es | 
nREwYOCet tue wwww w w w 0 wD 0 w w Vo. . Ww wo w 
KuiWYIE YY YEG... HARSH vt pan - 4 ool —. — aad -~, _ vt —_ 
wo © mw “ =t "nn m > 
--<— Heo TNR KR os DO Co BK FO VUWK ATD ARON We =0M Hw SM44 ©onhK = 
.- It Re ROM tan eR NOM MnooNRanR oOFMN WONRKR HRW ANDHM WR Wwo + 
o - NO SMoWVOA HM TOR Re aH DOA NOMVoOVA YH UNO MMoSMAaMonAWDaeNAMNMKAAMotao 


So k= KO MTAHOMCOMWMKR KRAMER NROTUNNTMONMMNMOWoVetrAUW rh oOrmruUutANMonrnom 
ftw MBean Ae De RADA BRA KR PNR AB PMB RR ORR AUN RPS ALR DB VB OPA KP wh Beis CO aWea 
TOlTCN KH Mes KOH NOOTOKOCOCOCCOcC eee cH oCeCeooeooeCesceoeooCr eco oCcFoOCoCoOCoCeCccocoeececcoo 


TT ROLE PELE EP ESET ESTEE EET ET Pers fT | 
442 ™ CONSTANTS AND VARIABLES ® 
443 9S Ee ee 


aaa Narcrrcaaqtatarcaacaadacancardadtartaactaerarrarriadraaraareaaeadaaaaacae 
KEE MMMM OM MMH MDE EREEEEEEEEREEEEEE REE E ERE E EE EREEEREERE ERE REE REE EERE EEE EREEEPR 
CICVUVVUVMUMVUMUGLOECACACIttaeteacateaetrcraadctcadtaeatcadrttCectaertecaterantacreaardtaaaaaeen 
AA ARRAN AANA DARARAAARARAARARAARARAAAARAARAAARARAAARARAAARAAAAAARARARAR 
o UID Cex Oe . cu = 
CWLELLIEWMVUYMED mOrAwW o. oO 
SUEVUVUUHHUHOH EMwWw 7 “ 
¥vuvAARAARRARAAA yaaa a a 
TOOK OHOKAUM ETM OR OHOCHAOTFOWOKDAHAOHKUMENVBVADHOCHNMTNUOAMMOAUMOTNOWOKRWOMORAMTtHWOKAMoOA 
TITTTTTH PY BHP AN HNN OVOVVOVYORKRAARARARA ARO ODDO DDHMOMOARHHHAKRDAMAHDHROCCOCOCOCOCSOCEH= 
ee ee ee ee ee ee ee ee ee ee ee ee ee 2 el sl ot ol ol el vl bE of Fl Et F, 


@aaqaqaqdaratecdadcacaactaacaetcetadartadacraacarcararcrtaeacaearareadaadaacaadaadcae 


rid oe 

Tot ni PoHMPorNeKWAR Tet VMoOHK OM TYUNNDORoes tH Non OVe KR KH NVUVMVP TNOMNMAROoOhWAm 
ook bit) KRCODMKR MOMMA AAR WMA ARR HE MOR MH oOONBMhR OOH NNWONMVAR OWOA MAR ARMA WMoon 
on mM -NeerMoVeTFONMNHOKRKRHNVHHVNMNVNYR BUN MOHMOCoCA Hon eA NoANMKRaMotraur 
ook. oOo AGoOOTFHABOMA MONWN eon TR OCOOTHOVMTHNONMWoWWWONMNTtWoOrTKR MON tRoohkhNhco 
oor. So” RBOCORAMOCCORKOCHNSOWOMNHNOSOMKR ROMA MNeEWVKA TORR een MtTohnOocWhKMorMeAa 


KOM HUOFT NOOK UMTNWN GOB AM THOR CHAATNVOKR OK ANMNTNWVR OKA HMTNWOkRoOAnIM 
-. TONNNMNNNHMWOVOWOOWWOWWOAKRARARAR Roo G@ooo CO anata eee fl ft fu Tmo 
| 6M SE HOMVYAOHOMHOYHMOOAMHHOMOMMMNMAtEe st ttt rT Tr rrr rrr rrr ttt 

eooaocoooeooeooo0eoeooeeoeocooecCeoaoooeoceoeocooocoeoeooooeoeceoccoecHeseoe 

SeceoToc00ceeececoecoce ceo cooeCCeCCooOCeoCeoeoeceoooOoOoOe oO oe oOo CeCOoOcooo 

PoOCOCOCGOOCHOCCHGOCOSCeECSC OO FCCPT MCOCGCCOCOSCOC CCFC CCC OC OF HPO oCboOcCoAcoG 


UOTNnAsNP eM tno 
HUM OoOM Me tw ee 
oooccoencoqces 
oooococeoo°ecea 
oooocooa0qoceoeco ., 


a 


433) 


LISTING PAGE ¢ 


? 


PROGRAM PAGE 


DSINCOS 


E.2 VORTEX LISTING 


GPRoet UH TSN OA ae we TON eee LTS OM oA ae EO hoe GO PL POS cee Oe er me LE In ep es SSS se Lis FR eee SPE SH SS KH ee ww a a ES 
Mmm Qt Sa oe Sette reteset et tt OL cM oy oom 9) 09 0 eo Cp ae the a er ow us 4 eet SE Pe PPE se see eS 2 Be Ee ee A oe FOR ROS 2° OR 
TMV HMOYWVWUWH VY OO GVM BOLD bd bo EO ee eo ba Loe oe me te Oe ee om me oe oe ee EO Ee 
fe eases eS ep AE dees ah en ee es ah ae ES sO SA 6 a EEN PCE A Es Ee A EE OES RE UME REE CRG RES Ea 
ooo oo eos ea oc ecs ov ecoeoqonocacco rcs eGo se oO GC Sac aoc se 20 FiOS 44 ca ce Te ocooroarrocaseoeor ak Kt FEEDS HE HF BH 2. ao 2 eR a 5 « 

+ & Se eK Se Re HE EG i ee * 
oF co 04 5 MM CO foe Ca TS Ce OP OO Ce Ce ee a a ee ae ne? MOCO PaO OC Pere ee eee Oe oe ee ee Ry te eee ae ge ria, = ee: 
Sra ga covceacgtmoes ce cesar Ss socaPioreseaOAeerignAa Oooo 8 Baws atte ee gc ee tee ee oe Pa me 4 ge ow Tt Ge owe & \ bi 

aed ead - 4 we 5 i of tay eat a ao 

© :. +¢- #£ © © ft * c] . = /- ] = = rl = na = r] i ml 


hed a Ld ld he el hl td ll ed la ie i Le a t bed Le Ld bud tt bel 


ify a | La - 
mn | t) | an aye i ct i 
| Lu ! Li i i Lal H tad 
Lud Li Lil Lu Lil 
oe] cs C co iy _ 
wn ™ T+ f, om aa eat 
™ = Ty TT Wi it 
“) “Tr th wo a + aT th Be iT. co iw 4 
fo (% wr ne ty tw oo o a P. v7 FE = 
cf - -t a aoe aft ot iT (Tt rn iT Tr ff 
Pr. Ww rh C9 om = m™ st “fF uo st cm “ 
tu + wo I r4 Ts cr ere MN # 
o tj wi Wo cv Oo * >. =a 
a oO A Mh td ai rh i) a 3 o i io um Eo x =! 
eo i oe _ tJ % or ts wo Cc. 7 .. zB * > ww Fr iw 
LD 4 fa Ww ta Oo co 3 rs Cc? ut ic tT rhe #<o06UWW Ut co 
2 WO si = uy id Vy Fi co —_ cm er uw t cg * Cai oe J 
li — NG m™ wm Oo am * 0 * k= 
oa | a) I~ wD = tC) hs - oS ® f2 
Lil mm ca se ws iJ ih m. td o uw oi wh ea een FL Lal Cc 
eEFam Tm TT co Ty n co at tu (uj ca 0 % eau * => od 
ae 14 o co afi Wo tT ee um ua iT c: ci ni * ecm 4 
24 wo f uo Tr T wo wu un fu 4 C4 47 . of *» ba a 4}= a 
oOo ea . ol * Mh . * tr * ee - tu 4 en 2 ee? a a 
= wee -« . ; . t _ . i . i * i a * oJ * (9 La! wo! 1 = | 
i Wa il | | li i! it i If it It i li il if * 2 * Of Le Lid Li. 
oO Mes CE ww uw wT oJ _ o> wo Wu = cy ij oo cn iG ® (oc ra ra 
2) (oEv oy oe ee ) ¥) 2) 2) i i wu wu i * Ci * wo ro — ik 
~ E * tf ce — i“ Lal * 
a bb bt - a k- as a - b- oat f= od I “- * BOD tte (4 
et re by bl bl bl 4 al — me re 4 I 4 eo = im rd ® Cl Ww Le bal fH ns 
td fa eo 6g be Fy wa ea va fa A fa ee a fo re) re) ir bed kas TE — * * 
i oe on | ; I I | 1 ! i | { I | ! : | 4 ® ri i i i) a 
w © 0 co oO to Ltt) oo @ ~ Lif] oo to co La to wo on te ee | as 9 | 4 uw 
= i Ie | i eee tae | rt ri fiend fame ce! haan _— = Ce | Co | all +d wt i to i = ye 
ew © i” 
xc * n 
~_— mM 
*¥t) «* e 
RGoMHoF x 
a x 
we fil =i * 
o wo f tv nO o oc NYNYN Ow tro Row Oat Wot esto Th HH Wt © 1 | » — i 
mn oOo = Ko wWwNno ARM&w KRtw Nok HNWYR ooftF§ Oar OMOIM WNw Wow NWo cot Mwwr oo x 3 o * o-kF F e4 4 k 
uo 4 1 moO mow MWR 2Wo TAD BH MOR WMNwoO atin Ate THR RO 6st LER Ur lCUgs Ll bu a * F< # ico + o> ™ 
Wart oO ee NO oF Oana foro OAM OM Vo et Oh ew A PM ao Mes tet ihe coho et (DPT et en co atid Popes to be b- bn PQS Cet Ju SO 
ThRLoo =a NOS MOV MOY HOM WOOKRReAR Pea oroe MH Do as Woh fa wWil es auth. oh. fd co oct yo eh et et on en fe fe toe) bo Co tice Ge 241 ik 
fh. 09 Tu Bee Stree Mg te Mae HE OO AHO MOM Wwe ONT MeO ea BIO eS MMP ed Od CVid it dot we Coe,, en ee ee ee ee es 
Sogo o0so PK SCOVPAOOCOOOMOSGSGOOSO SCT SO CMO St OC OCSM TD GOSGSCCoOSCSoe OCS GOS Oe eo eee Treo oO DOD OS *si-mNAe Oe ® ae a. i Ca Cee ees a 
m TN ~ we 
‘ ane u 
«= » * 
eFWMUse x 
TEEETI I e- OSAMA AACItateettttazaagttTtaetteit tite it eee ae ae tei Aa eee ae TE Tae eo rj o = * fy «x bi 
b— be Rm he Ok BR Rb PE bP Ee EF FO EO Be Fe i FE BR oe OF Fe Re PR Be FO Fe be FH FF be be BR FF - bm be B- F- be be Fb Se be be be be be pe 2 Fo ob bbe fo me fb Fe '- (I'*LOaTCirtecener & 
CHa ITOuUNITI eI CAT taal Tea TTT TTI ETE AE Tee TR CE CIE Dk i. 2 t= eet td ED ci b= (> CF th. k - eee iT # 
RAMRAAA UHI MAAR AAA AAA AANA AS OMe AAA ARAB RA ARAMA APA remAA Mma A RFA. FPAM Stas Afataea et a pak Cdn nob 1% t- Co ee be Pte te ee ee ee 
; *x* 20 * ad 
a rFhLue - 
ie ee ae | 
Co ee fy ke wi le ¥ CW & yw 
La Mw o. uw 2 iw * (ot * ea tt 
“ — =uwwHH a) i4 io fw b. * i) we 
| MN YoOAA A A = a =e ee © & FS bi 
QMTNWONS OM oAW Oto BOM oe MMO OH oR WOT DWROHon PTO Mo ore fy Me PW OO core i ob Oo os co ee CU TO er oe 2M cpa Cul (Oo sp Ob ace psy, Of Ge one CY Co eb 
Aas TUN se PP Peter eT NON NOYW Moo Ww OWWt YARRA RMR poe to to tees 4 Bah TO Ch CRP Gch ten es cn cb 
YNWVNMYNM NN YH POM NOHO N NOM OM KM YH NY MN NOM N KN M NM NYDN HNTYHH OHH KH KHON KM NY YK KO NHMMOHSHerynnnN nv nrnonrnnnrenrmprwadw Wo uo 


I Cl eT KE <I 


HON oo mo 
wooooed§9 
BWaetoos 
TRoooc 
RMOo toc 
oooTmoa 


TNWRO 4 
10 09 OO ow 
i eS i a 
oooqoocnd 
qooocd9 
oo oaonos 


SS ee ee 


E.2 VORTEX 
———— 


LISTING 
ae 


sCO030 


TOAWNK OVDMONMU DDK OVYON® UW 


AMAKHHMAMHAAMAAAMAAAAHTHAOA HH 
YOM WM Wnt eee eee eee OOO oOo 


FLDD 
DATA 
FuYD 
DATA 
FSTD 
DATA 
FLOOD 
DATA 
Fila 
DA 
LPR 
TAR 
STA 


FLT 

FaDD 
DATA 
FSTD 


DATA 
LEER ES ESE ET ES SE 
™ SELECT OCTANT * 


DSINCOS 


" INITIALLY FORCE “% TO 
-eaSReRE PS ER SARE LES ERS EEE ES 


AVAL 


PIOVRe 


MSOR 
ASR 


MOD 
MOD 


NEWX 
NEWX 
XSAR 


NEWX 
+ # 


PROGRAM PAGE 8 LISTING PAGE ¢ 


A“ OPI /e3 


FORCE INTEGER MODULAR 


SEPARATE MANTISSA AND ERP 


EC MMAR RRR 

62¢ LDA “on ONLY LEAST TWO BITS IMP 
629 Ann FLAG 

630 STA FLAG 

6231 INCR 1 

632 STA MOD 

633 LraA NEW 

634 SUB He00 IS NEW X .GE. 1/2 
635 JAN scoso 

636 SERRA KERR RR E Se eS 
637 ™® INVERT ARGUMENT AND FUNCTION IF REQUESTED * 
625 RRC KCK CEC RECT 
639 TzA YES: INVERT ARGUMENT 
640 STA MOD 

641 FLD 

642 DATA NONE 

643 FSBD 

644 DATA NEW 

645 FSTD 

646 DATA NEWS , 
647 ® FIRST CALCULATE K™*2 
64S scosoe FLOD 

6&4? DATA NEWS 

650 FMUD _ 

651 DATA NEWX 

6s2 FST 

653 cata xSOR 

é54 INCR 1 
655 ANA FLAG 

686 ma MoD 

657 $TA mon 

653 JANZ C0 $0 

B53 BPS SRST SSF ST ERE SESS 
660 ™® PERFORM COSINE ITERATIONS *® 
£6), FREER SSR TKK RS Ce 
662 FLOOD 

662 PATA XSOR 

664 FMUD 

665 rata COs7 

£66 FOOD 

667 aT cose 

B68 FMUB 

B69 DATA NSOR 

670 Teng 

&? 3 DATA CO35 

672 FMUD 

673 neta “SOR 

&7 4 Fabn 

675 yATA ENS4 

676 o MUD 

677 CETe “SOR 

678 Fang 

673 BTA Sus3 

68 F'NUD 

61 pata ASR 

632 Fann 

683 DATA case 

654 Faun 

65 Dai 4SOR 

606 Fauna 

687 Bata cosi 

66a JMF Sc 1 

6F5 SS SRReegs* SRS t HF RE ee AS 

69C * PERFORM SIM JFTERATIONS * 

691 SX BERT ES T+ KERR ere KK eRe 

632 Stepo FLDD 
692 pata 2S0R 

694 FrUD 

695 DATA SIN? 

BOG Feaon 

697 nat A STNG 


484) 


m 


TAMIAMI AAMAS VAM AMMA IIIA 


si 


AT. Hs Pp 


1 


rT 


= = = = i = = /- = . = = a * = LT = o = 1 - = = a - = = * 


FMM MAM MAP Me Mee rare ml 


| XERERBER 


{ee ERED* 
[eee eee 
| Shee ee ee 
[te eR RR 
eee REED 
xT eee eee 
eR KE HO 
0 ee 
ee ea ee ey 
REE KES 
ee SESS 
“eee eee 
CS SEES 
CMe EES 
ee eee 2 
cet ee eee 
teens es 
SCE ER EE 
Cee eee 
ee. 2 2 
OW EWN ote 
ee 
ee 
oe ee 
eee es oe 
CHER HERS 
Tee ee ss 
cee ee Ke 
<< e eee * 
eee ee es 
2 SS * 
“ee ee + 
ee 
‘eee eS 
Oe ee 
ee a a 
ee 
“eee ee 
HENS ER EH 
PRR SE 
~*~ tS e+ ¥ * 
KER RAKS 
eee EES 
a 2 ee EE 
ee ee ee 
cA ew eee 
err eee ee 
<2 ee 
oe ee 
Soe ee ee 
a a ae a 
¢ 

+ 

¢ 

co 

¥ 


ee he hot ek ee fo Fs RE FE RO ft Ft ee PD Pe ep te ep pS PS et es eee OPS ee Es oe * -  O 


ee oe oe oo 


ae oe 


ee 
oo Ke Pe 
AS SERS SS 
(PEA RR AS 
eS? 2 

TRE EH 

ee 


es i & F ro Ft Ct & 


J 
YERKES 
ORE eH 


Oe es ae 


485) 


LISTING PAGE <¢ 


9 


PROGRAM PAGE 


DSINCOS 


E.2 VORTEX LISTING 


**e*£ opeeyve tee ee eee ee SHR eH eaHeHR AUER EET Oe Oe ee ea a a a ae ee ae ea ee ee a a ae ee eb 
KZkeER EER SSeS CEH SEK SERRE KH HERE SE ECE EEL Ee ERK KH DD HEREC EM Be ee HES See ee Ee 
ZMK RRC HRA ERS EERE ERR KER HEHE KR ARS S KES HK SRE K KERR ER SEHR SKE RSE KREKSEES  e S = eM 8 BR 
ee ee ee ee ee ee i eee 
“se SK RE RHEKHKE REED eT RR KER eRe BE HEC KR ee ee EC Se SC CCE EER ETH Eee eh ee eee OP a Oe ae 2 os 
i ee a ee, en ee eee 
ee MS MRRP REM AY ASE EO a a 
Poe ey eee Mie ee CORNET Ree! Ce eat Mee eiee Ente Wi viwe’  Goeien Antrey Marre ntiee Gr ae Sem ay ie ieee Oat Te ar 4 
eee d ee ee Sos ee es eS ee) ed eee es sd eh ed de ed ete hee oe ie ee oe gg Pee eee ee ed eet oe Pd oe oe ood ee eel i ee | ell oe ro Be | 
a ee | ] - -_— oc 2. = +. + *. +. 7 oT :_ s. ww» @& 
Ua Lad Ral Led Lad Lad Lad Lad Lad Lad Lad had oj Lad Cal Lad Lad Lad Gad Rad LaJ Ged Led Lad ad Gad Cad Lad ad tad ad Lad Ged Gad ad Gad Lad ted ad ad tad ad ad ddd dd dad ad add td da: Lal Lad Led tel Ed ad tt 
= 
- —_ 
‘4 
Le a 
_ FT | 
im 
4 a — = 
i“ = ha 
“ Cc 4 
bt Lad “) 
aa te 
=_ e 
TT Li will 
= eH mt | 
4 i fo wes W 
== = Lij iJ eer CORN WW ww Sho z= Ci spare op 
Fo o tf i Mo ow NORA + FE DiweEROar lat? , 
me Taye Il wo = WOU Ph hao cu St tT. tr ts. inp i? CPP Le eb 69 69 69 6) fb oF 
- i} a aI Sonne Wwwaa) WQetramyiwiy eS Alp Ur Wear iy PS PS ES PSP eS se ot 
ae | li Led ed I 1 & > Hrs onNo TBO Woaw es 
a - ene T JWT oon] .«o - oc «6 «ac « ie Lid Lid Wwe e eee oe oO hk & 
bel 0 ll ono i st *~ 5 BF be a i *~ me oh i my we FO 
- Lid eR eF EEE (Ut) eM Get OetPo thon, ee wor sf UMC OS te co CO at ee 
J = 109 ¢) = ee ee ee ane = * Mr Cow et T LW fu co 0 89 Cd “t a oy be FL et Pe ee. OP Ge 
oe | _ Lad tod La) 2. it Lal oor (9 Ol & «fF yy) tf co «Fr =) rj fe Omce dT oil. Vo 
= _ woe & Ww SP ed ke hk wat. f Us P Paw FO Ph Pp eo oo ae £230 Ch op et ge eh eo oo it co eo 
BRoWoro KA ca ome - Oo mc oOo oe qe cece co oem cr 
oro +c = oqo +O «CG «= | & co om moO Oo Oo om tS to oS 
af, a(™ -_— es «bl -_ TT « C5 = 
- Tr. We Oo P.O wa YD et co oes aie an 
STOW OW owes. fu «> LJ 
MHMeaaVw AMHMeaemcrco «a i4 DO 4 Ff! thE OF 
TouRnM oT WWesrtr WOM «o Co lL ArFED WU Jha eok 
F 4 BAW ie WOR. sah. <4 'f wT i) 4 hd AQ fd) G3 toe 0 09 oF 69 69 C2 af 
ooocceoo oo qcncoao co =] ay Wb ae co 
iz noewpr et © & YY te 4 oo kK (I = GMa Somow tes LD et Cb wt Oe we v4 ‘a Lid uJ Hot he eo eee eA 
3 hoe C: in a re a) oo z Ej ek ra eta et C4 04 0 6D > WU dP. Pe enw. 3 te 
ta ra i ts | (- Le tI = TL hil Lit oJ ati en Yoh Cuwt tet ee wt (i) QU es ra ee ees Thy aE ye Ca ed equhor i Gps Oo wate a gig Ot 
st i) a. i} ~*~ ae ~ aa * bd aa GF rl cok Wy ao SS oe ssn aA BFP OCOD oO oe se Ge Sho ete ot eh ie ey te | “wcie et Fo ce ©, Meo oo PF oi c 
o oa fl Ww oer MMS .? 
o oo oor ocewetoana oc =r 
o oo eocoteoctrocccocasd 
2 O° Qoooocooracoonc 
AdMIMamMTaAOA tA Wate CdateaTtadrmreeaé oe a — fr] Pie 1 tl «Il co Art et qriedaiagad& “T F- 
SJ £2 2) Pe be Dobe Fae Db foe To Ree oP co be rec crade fair: 7. 2 090¢ 69 69 09 2 04 (4 be f be Fe be be SS) he ba be be fe be pe So 2 as i 
EC «IEC ITERC aA MEDC EGE RIE BAe AaATt ETH teat TA ae eee ISS Ot VUUUMNeNHtETaaGd -TOaCataad eeacD: c= 
LAL RAL RAL GRLALALRMILBMEL ALM JIL eLAI ee UY wt “MUM POW GORA RAN MWwAmMAAN alaAwu ea | Cc] ws jah (9 co fu 
-) i a Ow Joe grth JPost 
tu ao ea Fahd to AMINO MWe 69 ME pe 
o WH o & io ir Vr Ur We YAO ae erAAaAe Mv lw 
o o “A Cmax uU IX KPON DN COMP Ah ww et 1 td We as oO FF Cl oo Cf 
4 onl VStWMeHYTAT Oa tee ec LOL MOA wes ee Ge" bed do! be (bib it G2 fe tf & fm oe ce te ce oh -— mobi ty Pe. 
J) OMWMMWM JO >We tue eee re et HO OIOOOO It, th wom (il 
“) “) MOAOAAWENM EX LCYMYMYHYYeA MO OLCODOURDA em Nwtio Mosh, Baas Hy 
+ wr co MHA oth 0 te a oy ce 
GOAenWOTUIoe MO KhowsW MA FO DRO etn gh oaMD ee MTOM OO eo est TP oh OO 6 os wa 0 OD tr os, Oo oe es ee PZ Co en fj o3 ches mo Oy ae ea eee 
OAGae coo oco fc OFWs deta ete THOMA ear Fre TCO co oe 6 Te et co tS eb hh Oo et co hy 
WWhKRA RAMS RARER ERRRRRRRLARRR AL RL ARR ARAL ALARA RLAL AL ALR ARR RRR RIAL LALA RRL ALLL RL OG oom Ooonmcoco0c0roe cocoa J Oo 09 ib fo 
aa a at Oo ooo Gof0CeCc Gata aeaoc ra tT 
‘on 
to 
oa 4 
vw Co tut r F4 ea rt ge bot Chl fey (*: 
. 2 ee ee ae epi ke cote urs IO 64 b= Co eE 
rs as VUAMCANH RAANUHMM MYM MwME -OG ti + 
is Lad 4) cl Ale a oe TAFE BS Ae se is aH 
* = te Mme 
‘ (T Of 4 Ld bd ld CC Oe Li bad det Cel Oe cet fe et Ce oe de (9 die Up diy di Lip 
a «« “ ce 
MOlrtwoionwWwonaNwoehtugrwoht 
ee" ~—“MewWeflhOnlteores Wo Moet t+ ll WO cl om += 
AoWwhlMiotoadcthloowWwm amir fry ce rd 
KorFOooomrooonccoacanrmnooasa ae ed fu 
LOoYrtoese Fromm ocaeor ZDaood; 
WoWvorodi4or ea Om mt c-mo ooo 


= Se 


E.2 YWORTEX LISTING 


a el oe Lie i is i is a i | 
GUO MLIUALACHCAD 


aLy 


692 


WWM MINN 
@AhpUUW he 
WOWOMCKEM oO 


“Ww 
& & 
CA ch 


OVRUWYAUONOO AOES9K80020 


$e 
£3ToO 
$ZC 
$ZK 
$ZL 
SZmh 


FLAG 


OX xH He HHH OOOO 


=VOOOe HUH HHWH 
AZZAAa222eeeo 


AWNGGAAL MRK TOW 
ee co 


m 
* 


AGDWNNNNNNODKHUGDeOTHAWADMH 
WWoawDm Ore HeOQUGAWe URerH Os Qw 
OS BWwWI NOW OMUaHhoOe  WUuUWOWNADL) 


Wh) 4 GT) 
COMA Db 
ATWOOD 


on 
—_ 
nm 


635 


433 
S20 


iM 
“0 
ty) 


191 


LA OVE) PD Oo Ae 
Wee > COM Ce) A) pe 
UGLUANUE OO 


Aw o 
ro ty 0) oh oh 
NWO 


w om cA 
aon nM © 6 OV 


ne Ben 
Own DOO ah) oO 
ANA yA 


Cam ov 
0 Ww Fi) 


DSINCOS 


38 

&77 
341 
ess 


mi WM NS 
Oonwow 
Oo “aa 


Dw WU 
Won AU 
MO) Hh 0d NW 


—2O cl 
Oia) OG) 


HWW w& 
-— Wwe 
Vee & 


437 


“oo mo Qae 
on wo HewWo@ 
“~o) NT NSNQO 


i) & G) 
web 


329 


731 


mn 8 6) Ge 
“ye WOO 


“J Ow 
~~ wD 
— WY) Oo worse 


PROGRAM PAGE 


456 
SES 


38e 


332 


cod) — 2 
ca) CA ft) OS 


io O) Ty) 


oo ww 
“J oo 
d a 


10 


370 


328 
399 


My 


7el 


0) 0) fh) = 
Oo OAHo 
my Bho) 


LISTING PAGE ¢ 


456.) 


4673 


LISTING PAGE ¢ 


i 


PROGRAM PAGE 


IDINT 


E.2 WORTEX LISTING 


= CJ fem woo ew (YM Be The et TY ph, wo 
Sororcoeoccocoxrt vt st awe st ete HE Tot ee os Tn oS 


Sooocoaoscoe co geocorceceaoooqcest & 


MOOT GSTS OOM Oe OOS Se oe oe 
Ooo sao rn oConnsar oer osorcrmraormoemss 
> 


ttt eae a tot 
Seog nrsoInrosr aor mMowmwoo sr eooe aod oS ® | 


oie en ee ee ee | 


Lal ‘| 7 . - . - © 7 ] 
_ AAaonnsesarrcec 
bt 
2 
| 
a 
= 
z 
— 
I 
ma 
t" 
= Ps 
‘I i 
— a 
i ra 
28 i 
=~ oS 
eo 
— 
a) ha 
oe 
mM a i4 
N ce 
™ Lud Lu Lid 
“4 i o 
a “) li 
on Li be te Er 
be - te Lil ar 
Oo © lil ‘I k= ce 
oa fF fe ci Lu ‘I 
ow WwW = ci. 
- te ed 
a 1 Lil ce ce 
oOo ww Ww a Lu 
oO oo il o. Le 
Ww aa ? 
. cD i ce 
= ol “ LJ a 
xc i Le £5 
Yr oo q 3< RG 
a 
| 
Ce 
ao 
-~ 
RA = 
Li oo Oj sf 
b- i A 1 ) 40 
—. * = ~ 7 
ha} a | bh — «= - bel Lo Ce ci cc 
es = ra a b- k= lL | =a «6 
i ri oe! r4 O ( Sb! ly t co 
- 5 aA 4 OOMiMmm 
= L io et dir ifr — Sie 2 A Le co 
o o 
iu 
a. 
a Lu 
a | Lu Hal .. OF- 
et? ‘ an z= iJ ke bre LE ce 
Pe? m (IleREBR eR OUULOS Tis c 
¢-7 ' met ram i Beas ee Lb otorn 
“ fF ¥*¥ Oe 
x ‘ eo - tu 
wrt > RU we 
- Kae — a 
te # E ® LL! = p oe 
». x 14 Ye fF 
SREP RP MR eK Ee Ee UH aK Ww» 


SUM TON OMonAMM TOR OM oe Moh tome CU 
See ee as sete KUO MMM oS 


A 


090001 


eet ee eee 


See ee 
cree ee * € 


INC 


ecocss aA 
oo0004 A 


acy e! 
6907 09 07 03 YD C9 


So ooo F So 


* 
Tw i a +s Ss 


G3 65 69 Ca eo eo 


Wiimote Fe ee 


hr , 
&QaOorkuther OMS eK 
oO 

CD bol 7 et OP ee db! Pd dD 


fel 
b= 
— 
| 
“= OF 
() 


m 
") 


Fay 


Canoga! 


SoasVOoTnwwh ots i 
SOoCSOC GO et rt et wt ete 
Qnoooecoco0m mods 
Senqoocococooeo 182 S006 
QOoaeoco eco 78 oS mo oc 3 
Oo r70O 00 MO Of too 49 od co 


May sw 
Ooo 4a oS 
ww Oo wc oo 
oOo Gate oS 


se i el a 


Sa CD oe GO a 


sf ef oP °F wF t* 


EXPONENT OF ARGUMENT. 
MODIFIED SHIFT. 
PARAMETERS 


RETURN 
ENTRY 


ae Oe 
CC) > ele er et oe ee a 


to Fo o6 eT FT. 
ee ee 
OM bre 99 


Fo ct mit cl at 
el! Cee ee 
670) 2266 pe 279 


i ae 
1 
ard 


wT LU wrS 06 Cr cm 
PMoMnowwMo.s 


44 DiI7Ta 


ee tj 0% 
TTT 


Tt Ttrew TIOTCTTT eq gqTcTeced 
moody hw i? bo 0D et CU oo PL et et 
eto MotUdm ac co ty ti] ay 
cooocd @ fu + 
Ty Oo WT i es 
Weert o woo 
ot] £2 c o> ¢> 


Www to ce oo 
TTMHcoesa 
oocoov0ceo ao 
TTT hoo 
BWR Oda 
ooooaons 


oococaa 
wrote os + 
eat co Wo cs tu 
Sow i t tis 


Co fs co cS 
CJ fo oo ees 
es 30> fa €5 en 
c3 0 ¢2 ¢5 ¢> ¢c> 


ett 09 tr UF wa 
eroarw tw tt 
mimeo oo & 


cpt et OC) er ef sf 
0909 09 09 09 0 09 09 
oo 1 cs cao co 
@WoOoODIGO6G 
> 02 69-9 o> cD 


Whoa fl 0 fF 0 Ww Ph. 
eaea CU fd C2 tu tu td tu fu do 
ft) CO i (3 CO Co ts © cp 
ff G0 2 Of & ta & 
ite fo loo io cS oF tee oo oo 
th Co Cte to che ao ee 


cho a ti 
Qo wee 


° 


[: {4 hen fs fia i i i 
a" ii aL ica | _} ivi = 
—~— OS ei Wo 


WAM uF 
be 


Se = eM et 


Ss OA eeiS 


TN oh ho 


a a a a a ei 

ac T 

Gr ri 

c «t 

0 7 

ar + 

Ca a 

& ei 
Ret CO 
Tou i a 
Go ©: & 
Co Oo G: & co 
aeaotk & 
EE oe. oe 


——— a i 


@0GCS6 € SSE 


.S 
=DIT 


NAM 


Ee 


4285 > 


LISTING PAGE ¢ 


2 


PROGRAM PAGE 


IDINT 


'E.2@ VORTEX LISTING 


oouw 
Z2eere 
ASH f 
PARAxX LW 
wil 


LJ ce ce oe dW 
E 
WD =P. Or) et 
eontnhowW 
oooose 
ococeo 
oooo:9 
ooooco0oh 
= 
x Lil 
Lu t) 
emake ti 
mb = & fe 
=—o ee | 
nYaAaAA > + 
te! 
eKereanon 
4 te 
HT Os 
OM WNooW 
MAocoo s 
Eooaooce 
—~oooo sc 
VPovooodc 


“ wT 

w 5 

7s fu th wat 

0 Ta) " ww c4 
ea) + (*) oO tT Tins ty 
we ow tu bo T+ iy = 9 tw 
TFUMBRNMOBWVHOMWMNUN Mon 
SHUT NA WN tONn ere twa Mts 

ty + 

ete iJ 


FO wwe Gaeogewaastkt - 
OOM ae eee HY Hee Se Ye Oot oO 
Yee nreaAAnAneahAAaAkbWHHs>xX 


st) OD Wh INRA Mm eh Be dd td 


459) 


C 


LISTING PAGE 


PROG&anm PAGE 


FRPut s 


E.2 VORTEX LISTING 


SUC Te WO MRS MPO OR HSS Oe. Oc 4 ED Sih dapee CO cee Oy (9 sh od eis coe O00 Pe se the pes ng OD ee) A ee Ome ee EE cp a a A te & 
SS SSF Oo Gordes tetet ee BE NUMAN OS OOM See Oe PO A ee A A OO OP PP PN PLP Ete code OR oo 
SAQcakoS OG C3 SeoOoGg Gh SHE NOt soe Goe oo Sac ca cs os Ce SS Co AEH Soe ee EC CO a Be OS CON EES oo ee Oo © Creo a ee ee Cee ty CP le ee G 
Soot Oo eso SacnreCoc ot SoG SCoOoCo 24 ] SO oo ce ce eo oe ee oo Sc co So Se a ee le eee ee ee ee ee a ee ed 

QOootC ros oces ca CoOC sO OS IOTOGO DOS oo O69 Oy oS eo oo ee oD SSOSVSoOeSoOcGToeawug ooo woe Dome os 3 to ts £5 


Coon oY oso o IO OL ooo HSE Sooo ce Cte te SS SC Oc ee Se Ce ee Gee tee ep ee Cee eal Cee ee A ce 
Soosowoe®Q*_ coe corer ao tte E cs = oO oe oe = fat es CCB ogo oho aq aoo mM Seo Oo 2 ese ee toe ee Seer See See eo Gtr eThets 
= 
ri ti rd 
1 Lo Ll 


DATA MACHINE 


VAR TAN 


BY 


= 
a 


1a?4 
PCOMES 


Cite 


92L1709-003A 
L. 


a 
H 


NO. 
MH 
A 
iia 
FE 


oS et > Oe oF AN 0 0 eee OOH SO Sp theron Ric om Ps Set HI OPO Oo etl ws oN fo 


a eS LL LK mR = me ul Fa Lit 
= Ld = 


fis Mw HA hitless co ol tet co PB a eo 


6 COPYRIGHTED PROGRAM. COPYRIGHT 
PART 
ta 
3 


uel CE oe ot el Sl dee ee CO he So Se ae eth Horst See Pa Dd OP a SS oe a a So a ee a Sy el aD a a ed SP SF ral cals Sentient Pe LA a ad Pe 
oe fa Gace c Cd Ge C3 ta cS SCa GGG oc te ce tb ch cy C¥ C SSGlOGeGacearnaqagcoancaae0a Co ts co fe Ce Cote CeCe ee Oe eee C Ca fost Ce Gl a Os 
bm ba hed Lad had had Led fed Led bed Led bad bad Gat lod bad Lid tad Lid Lad bed tod be bet oe bd Lod Ld hd hed ld bd be ed ld bd Led be bd hd ed kb bt bed bi Ui God tad tal tad Cod tad ad Lad tod Gad bd Got Lad bd ad bod bad ta tl ba had bud bat Sit hal 


is 
DM. 


Lid Ur - —— @ tr “ — & (rc - — at oe 1a 
J r4 4 Js tL i i ad + > _ oe ue 3S 
wa (Foe Cit Sem TEOa aaa tie toi i r < fa -te ad a C2 Se EE Foe eee oe Bee 


we H oa f. 

97-09 0) C3 3 oe Ce Get tel ate eh ae - C30) (ce 4) So be ee LOE bs te ce et Ce Pe - F- i ie fp Ae hd De i Be! Ate pte ae be RG Be Bh Se GSU 
ep La ti 

HI 


x xen be fon ox f= tae ett Bl 
SL) tb OCGA he tie 
Cia KKM BARE ROR Gace qcqicad 


I 
at 
v « 
Ic 
20 
= 
—_ 
— 

» 

i 

: 
ll 
, 
Pa 
a 

m 
Ta 
| 


Tie 
idiot bl the o& oh fobe kk be OO ACI CD he 2 ed bd ee SP COGS be ee 
SCHAAR GRLLUUN RR HHH Hey IRE EE ES > Sup oOoeUboUsoo LITHIA aaeakad com cc 


RL 

RR 

Cc 
EXLSHLU E88: 


-_ 


40) eT ety wc es f 


| eae Fen nr ee fee fl Core Se OD Pa Scart t 


sMUOPTD OVROM OMNI TNWRO MOR MOTOR Aho MMT OM onMWMO rho OMe MST OMor Wis wh OOP ce OOP bo co eS et tO OP do oP ee 


ed ed ete et ed ete er TT yO Ge Og ty ty fy A 0 ee ep er ero er sh PPP PP OOo toto ooo de eto 


TOW TMM ors oR Mh se HE. tN V MB hws Toe Moats so foe etfs eed Sebi ea et DIT! GM en oe : 
OCOOecrceoooconr oo eo Gc o CC COCO COCO COCO GCCO SHB OCDO SOOT OO OOO OO SC TG HOeCOoOonR SKC Pa Mer ao Seco coo ™ hoes ind: 
eS TS ae pe oe Ee 


OoOoOCroeegoOose Sonera I eS SSSCHO GO FO OSCGTOOSGSeCSeSse Oss SGeCSe scorn oe meri acco : 
CS 235 Ca bo eo ee rey er ene Oey or [TRL es Cie 


eo nono cocwo cosa dg MeaqcmMmecoeoo so coceeqeoeec ecooaogs ont onsn ore cea rcoe mo Og ts mimo ti af 


TrOcite Teo per eth weet 
= = = = = = 


—_- oy —_ = = “s 


430 > 


LISTING PAGE ¢ 


2 


PROGRAM PAGE 


FPPWCS 


E.2@ VORTEX LISTING 


Mont twee ¥ 
ota SBS eS HS Ki 


MTOWws Hoe WM & twee oe 
OPRAH AAooceco*e oooock 
So T7O CS GSO aAnAHnH EF ast risi EF 


Hm oe hfs wp 
ae fu Sto) ol cs 
eee ee 


wa 0 (05 tt 40 Ps. 


05 (5% 


PEO PPPS PST EK NNN NNNnVwW DV wow owe ARP 


OO i co 4 OO cp et CL 0 oF 


» 00 00 00 00 oo 


GMT oM Ur ohORh eM ST Oo 


rs aS SS eS ee eS eS ee See es es ris eS eS ts Ss es ees Ses a Ss a ss es se es aS sas aes eS SSS estes Ss 


PISS VOSS ocos OSM SOR OS SSCS OOE SSO O SOPOT OREO SOOO SHS Oe PO Siro Ss Oe Peo OOS Sm as Oe ocroon wee cacs 
SoS csocscooaoeaoF¥ GOS GOK QMS SO CoS Sook CSeeaSsocor us SF SG Cocyrc SSS OSSGoc ss Seog sc OoOVesI sooo GSC errwVToOA nom oO OOO OOD eT OOM Oooo on 
» ¥ = é 
Po arc SHS oor sc of Sao on f£F SS oo cS ASF OSS SHAG SSH Ste to oy oo he os oo oS oe es oe Oe oe 2 ee ee. St oe ee cee oo oo toe cee ee eo Anaad cot at Co Oe ee 
Sea ag oscecciric sor ooctoea*f oocaca ca: 2K aoc oggaoseecacoPFr Ooo eco O HOR Seto AMP oooaaoco dm Je OO ee re a moe: Cute 
CW cw sn 
* = 
Lal Lal Ls 
r a 
te 
=! 
= 
Led 
ms te 
iY “he 
ac a 
_ Cj 
a. 
a 
- _ 
id =| 
= 
= = 
ie oO 
ad OO 
i ~~ AAAS EAA 
Lal i) Ooodwvrco rc ocr rr aqearoaoccaeccoaa 
ee te = PP eee eee eee eee ee eee eee eee 
“ LJ Soo So cCV YN NO NHN HY HHH NNN KH HHH MwoMwYH 
WwW Wee i ee | 
O° rae ee Ww bi. Lae OO a Pe 
oa ss een ene me OSODDDCCOOC OOOO OOCoOODODCCO 
[= aad Lal a ee ee eee i a a i. 
a Li) OL HoocoVroVO KN VO DOI VK VYV DDD w POO Dwow wo) = 
LHe i ee ee Pa 
Lid ei CL 3 Wow op aA aA AAA AAA ee RR Ae Rm - 
Ee f& semen ne ne Ooororoeoocococsso co noea ce cococooS a 
iT 2. 2. oT Te ae ee, ee a le a a a 
ke h-—- — ee eee ee ee eee Li! 
) Go Tt ul i ee ee | — 
cea nhakutent.t_ratatatatsAtT ATA RATA a eA eae ae eee ee — 
Aa ee om ses wee eae BhGhockoadghadgdg@aiaotit@bhOoaeadckaeaiataadkatk = 
Ye WO AAAAAAMAEEREEELEERZELEL AEE ESESEEELEELEEE aa 
Cc WT 0. Oo a es i=) 
A wfER EEEEEEGOGOOGOOGOOKOKOOLoooo oho 
ad a ee eee ee eee ee ee ee ee ee =, 
a KFOL“oaOaeaatiasoecoqoeoocoeocsoc sec om ooo eocacecoocn Lil 
- ee eee ne ee he a a 
a Hoo ceo c p@ eR BR KR RR BR RR KR FPF rR RR OR OR ORR ROR Ur OO OR Ls — 
oe ee EL vatatartataratatlatlatlataratatatatartalataaaet ae x kn _ 
x Qaeaanecst sc ZFEESECETTETEREEEELCETEELEEEEEETELELE Ir & 
oO AAA AOA TA God od dd oo) Ot td ft og oe to fo tf to * —_; Ww FA . dal 
& KFEE ZEEE UUM HMHVHVMVMHMHMHMYHMMOMKVMVYHOwWonwn © ; oO oO 2e eS 
SUNNY Ve WM HHH HMYKMHY YH Vw wMHMYMHYoOeeOwHHw oS — = Woo _ 
Lil rigae =| m 64 64 6) 64 4 60 ee eee ee eee ee ee eee ee an ii Li fA t4 = 
oe rt jjMWVOHMHMwWwHadadadkaba Gada adaadbsst ah boa cadcaabahi_iiao « HH 2 me < 
TaAvUGWE oud = scat «I =o OC La) er ese er SS ee Nee TN ee ~~~ S SS! “SN CU a oC >. = 
ese moe or ie eee aotoaaana -£ ly oe ul 
WKROAXKK XXX APU KKM UOT MUXMUOUNVOWUMANX XUAN o ae — ee = i i a a x ot eal AM oO 
= =| a a | 
- al [Sa | —_ 
a Ww 2 _ 
Oo LJ dn de oe de te oe ee oe en ee ee 2 ee oe ee 2 ee 2 ee ee + = te 
onl Oo nw ed Ld ha) bed hed Led had Led Led Lad Le he hed Led Le had ed Lad Led Led bed Led Lod dé Lod Lod wo wt ™ coll 
SOB IB VIII IDI BIB III IIB IIA VISA VIII IVI] Od CCSD St ST TTZAZTUVMUUVYVVVUIVUVOHYUVUVUUUVUVUUUVEUUoU Sows ._ if Gh F cf 
Goeoocecoocoeceooeeocoeocoecoeceocece coeGcoco acoococog =| ogoa ww —) bad Lal Lil to bo La fm ul — er co Lil & 
Witt ddd ddd ii iT CUT ow 46 oO cd &@& «a 
~ 
ao —) +E rat b oO. 
—/ + oo | x MYhaeieE Fk Ee el O 
FLX OUCMEFEL UR WMOF IS>>TF Fe eo PFO p a z= i 
ZIPOrFRLL PWSEESE TCT TOOM ee Ye os et eff - E 
WeEOOATMUAWLEUOOKL SCT TOLWMHwHMYMee Deen OWWE eee To M0104 or 
Cie a ee kee nee en ed oe oe oe ee oe ee = * ORRREREER ERE E FE 


TMVUVROHOKHNNUNMNTNWOKR OM SOnAMMOTNOKR OH OnBnAYTF NOK OKOHMTPNUKRVMSKUNMNTNVR DMO HNMTHOVKR OM OHNUMTNUORDAMSCKHKUMNTN ORK. OB onMMmTNWwh 
HOGOHHHOOCSOCOO OOOO KR ae se ete SB MMU NNO OOM MAM ee ttt tT HMO ON NONN HM OY OKO UOWYWWRARARAARAR ARROW MOM Mo oO 


Ce ne a ie Re ce ee ee en ee ee ee eee ee ee eee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee es ee eee ee ee | 


ON ONATMOAWL Ar MNOOTHWOTMOUANVAY MeO MN CUA mH. 


kd fA 
et) Oh fy 
“oo 
ooo 


0000 


Sooo tootmiortoaooo cago nceoaogortocrcroccac oc 
ooo oqnocqcoooooqoaoqcceooooooacqcooocacecocaon 
Sooceooooonoscecqcocoo¢cooceocrooccenra 
eOaoocoocrqaoonrscovrv0c0co ccc ccecccccmdCe0cCCcqoca 
oooeococacoeocococeoocoooccecocoococqce a 
Qo0ooooqo0oni0coecoooeooeocoocoeoaeeconcnCcoceCoce a 
Oooceoanrea@acoonosooeceqCcoesowococneaorscecs 
OODAMOOGMHOOOMHMHOADOMMOM MMMM MOM OM m0 co CO 
ee es ee St ee ee Ss eS ee eee ee St eS St eS oe oe Ses oe et et et ei 
Oooocnooroooccoefooecooooaoocceccooocacne 
OoOo0eocoooc9eoaoonreomcoanceeoneaaoooacooncnocece > 
OooQooao0accacqacecqcoqooqoeaqeocnoqoccocqcooqooqocoocneoqococca 
oooecoecooooecoceaecoacececooeoceooocoqoo 
AOMOAMAGAAARGAAAAAGAAGRAAATPAAHAAAAAHHAO HO 
TTT T TT eee ere rrr rrr terre rt trae aero 
Ooocoeoooonrecceocecocococeoonococococoo 


O000nn0oDGECOOONOO4 


SOnMMTNWNOAMRTHMOAeaAWLOSOenB WMT NWR OMTwHOAaWLos 
Oooo ooc 9c CCC OC COC COR et tH AHA Ht dst nt at ase eae Se eS ef fl a 
ooococoooonmeooeocooconooecoceocerccoo se 
Co qooooqoo0occnTc eco c&aooeenoccvcoccoactanr 


4913 


¢ 


LISTING PAGE 


PROGRAN PAGE 3 


- 


4 


Sa" 


FPPWC 


E.2 VORTEX LISTING 


NWR ORocHA Ye TOWER OO SHH TNVER OH east BOP onwe Tree eo AM * i OS au se ce ee OO a Oe a ee Pe oe ee OS 

GHC Oth RARE AABRA DROS OoO SHR OCT On A St stews et et tT OGL MO SIG At Ol oo &@ PL TOG ore ao oo EU ee we ss PLP 

—ietieted rte St eet eteteted ee TTC Mt te ne On OI to fe Oe ® Ge ee ete yp ee a op a ya es, 
= + Henle om a? _ ef v 


ra 
SvOHo moa om Qh evo GS oS Qe Smee ON Soto ep ce ey) ee ce co ch meg ty een cect ot ch ce CoD eet ee te TUN POY OE DOO Oe eres 
Soo SoG MstoOOoF SSS OS ONnNL WS GOSG SSO GoarirAIroariIacetocarnmnf OMS See Heat oe os ee Se ca tase IT SMO Sn Oem oS 
* 
Co eS ee Ea RS ee a ee a CS eo Se ee ie oS Se a ee Se CS ss Late a ret i a = a = at te 5 zi ea ae | a= on ee ee = 
OD Sm 2 tt ee tS Ee OS oe co ee ee oe i ee ee a ee Se Se ee ee ee eS ho 2D ts iho flo Panera ul Earley? @ cto) cee Jct Oooo 
ae 
Go = 
Lid = ie) La 
msm 1-2 Ya = 
' bt fe OL me fF bk on al 
Ya et i igi ao | 3 
_ bal J om inf hth et PK cm bv aie i 
ia an = Of a = ae ee oo tr tad ee) a 
id =e bid Lat LJ la “Oe es mi i it 4 «L 
ie | a a i C3 mpsOG OS i a tt CI r- is | 
G. - ‘_) (Cc) oOo Fe “, GE 9 Ce c& i nal is i | ad 
2 — St = Fo oe fe Tet ik — it st ee oo 
La. Ce eo to ud ees iw! LOLS a, ~~ Cj ce C94" * we Te =* Be iJ = 
ie al a | i ae Fs) Lil io a bt a iu/ ee eat o —a rt at ‘a 
“I il MmMiw Moi a. meme 2 AT esl ef: i aig Ce — 4 i 
m te AH oy > Pra 4. Ce. im = Lj eS oh eS OO C._ ad x i 
Le 69 Th — inn 4 le et (Ti Tree ke cL. fe ant i ch mo 
ea Lid > F4 = t-4 tet ee me ee ee i! Lu b= pl i. ve ol 
i in Jf | — F- Lud b> + —) Gi a 4p t= aid ia id = Li! ci. 
a (jf Lod th bo t§- ee Oo Lit. Zt- oe Ie ada t,' Ls i! C3 &, 
ot Zh te = k= FE ee SS el ea wilt ELC es mt. = ie ly rom _ “L andl ha 
= CL. tad bl we Ge) Gad SES ka! oe ee a Ci ee TA te “4 rl os Ls : ae ‘a 
i> fo ri 144 (Fria i= Ie £29) ef (4 e ea bm de a a o Hig fa i 3 ib aa) 
~~ sae im ™ =i <x C. ak Co is! al Lal La, i f 
one cz Ln mf = * =. - Cc ' era, ant 
Ce eo * 7s sa o- =i Lu a a and * bed oe o ' at Pa om no hal 
= ~ ti * bo » * Le CL wet et tL <L ‘oat es hui aa es | 1 Oe 
-_ 4 — aE ‘ZT — . ack has “ yo eit ws = = re qu - ce Abies or. 
ps x <L is. wil = fi me Ls « 2 Le ae ye . Lin wt ad G oe iad. ée eg 
Le. “ C2 i 0 ite Li * -—~«~ 8 J te ‘th LF ° # Li ” * . “ a z re ta FS 7. wt fF "4 
(Jj « - re oe we hal q= tu ka. par) na Ll ES ea fs vt 8 f4 e * | ra el i fea e'g Ray, Gye + 
a (% * = i) ie la = © ie a = A ielW eo f eq i x — io = = = ial f mist. _ 
tle ty i i] Ek - ic, 4 - be = ~~ < HH“ kh = . = = 4 ke b— kal | ad -- aol ke “er =! oe = iz 
Le Le —* gill som i as tJ + om ot onl weg wat st Lad ee OP et 1 “| - Lo <0 ee bad et cd et Li ea ide Cl tu Em Co iat o= 
Le Li. ~ - C2 ti. o> A. i4 FG LL li Teco > . (TsiCw 2h De st we wh AM oe PG k= Sil a aE b- 1 Lk, ran Pa bi ie, Ces bal oe 
ea a fl * vel cS lo AS =, a. fT om co i. ks to i =i sated TT «fi «= 2 Cz a the AQ) & La} TS 213 ST as as bal ol HH +4! fe B= Ly eg Le Lil 
Ce Ti = = i L325 be Ji. = Pa i | ha) iy ry ie Oe why 19 | | _iu * ee oe =  '6T bu ke je ie 
JTuk zchk E= a | e mie “Cite - « ° a Ee tiwfiw ite = 6fR OE - eat? bape =z = co co i —*F in i ds t's 
ei « “hid = # jt Oj = tin Pi t OJ - . Pu. FLT ee | few os a aL f e431 34 Cou te « LJe «Lr Lil Ge 
bl an 9 a a {<r a it « es wm hte te SE _ a) Qo CT le PQ SS a4 + [J «fs f ts « {> «. GC; LY. tal fe et Sh oo Li 
CC ty ie ea OW CE Le CU ie b= O97 iy ~— i - - Ze «= = lL. eer ew oS ew el Bel » Ceo tea! sit om — Cir. a a ee Ser mG. 09 tL 
Tinea ue wie li -— = LL = Le le — iL «#4 = “ ie ee ee ae | ree wi oT ie a i} re | La FI — a Y Led F- Jo Lj f 
ah wt Seek oe Lo = ™ fi] Ae om da le *"s mom oe eet Li TOO ebb ell oe Kw to om tal = ti mabe Lol b= tl Gly Se Tee i) Ce ie 
we mit om 1 PQ em cso «Tos a Pot. WO Co i= Ola Me Coe wi Bete rs ef! (oe oh Thee th GEG cL Lil “h Fao. 
pmb - Pe ee i ent oles ly we CS = = fst «= lis i ee a = «2 Ww et ae ae Pe a Se A ul. ait i» i ay 
MTeriws = iy. o> om ee oe A Le «IL => a= Pao a A ee a fea to he OO et oF I oJ. =}: i % me et Be ~ <r a Tr 
am elk Wort ie eit > et ee LD a —t oo =? Le es Ps net nth atte te af aloe ow tk wid) dade £m fh bib so ms ie i | a 
ee ee © « Fa faci ea Cl Fae. Li FA Anu Lu. fi: < Ab las a Ae LIL HEH ET eo a a rt «fl = le: i 1 ce bd 
oe oo = 2 od ~ » (4 po €y -~oh “* mF, {Fr o- ©. lw @) wt we TOR es ee Ele TE Oe « F ae Fal te Fa = = | Lid mall ) Lu) 
-- Be eH nw ew eA Co ™ -« = JOJO —~ <0 Oo re ya Li] ee eee SFR es ee ee ty ew ee Ot tf Ate te ‘> ie ee? LE Lid aL ha! CI Ce E. * e Ll 
ram a Ye ee ee etrilJewes fi) eo en Oi bh OG ete et 2 ef | | at —J k- Mea VWinMod J = Wo 2a OO ew ete To f @ctih et k= La (3 = ie ae . Ll i 
Lil l Se o> o> om fe Se oF PQ oe Of oe a oe oe oo aed -_ i o wi wal CF 2b ck Fe AS a et el CE SE ol be. CO Li. b- ie a AL. fa kal Se Ma aa Sy . } =a 
4 i. et bet ee ba OS eos PQ ee See lee Dea eee ee Le 1 LJ er —_) St TT ae PG eTI eS oe s and by »- Lil CJ im ch ij = LJ te me Lot “ET ba 
Ke a = 2 ee ee ee ee AG -M «-fAlIeUs «Fh -« es i 4 = b- F- ay E«sFrEeETwauwi.t¢reEeewJEe «alot 40 Wer ia Ca F- oe = a) is a oe OY 
co me ur ee er Coe ee ae ke ee ae i CG a en | Cc Sef FH Yat ek Le Be a ee a ee oe =A i cc to im hy p #E <t 
— | Bez ek 2. el ce Fa el OO cel Oe oot oe ee ee | a LJ J =! 9 ce Fe cLeoSH ZL ee cee a cee ee UeGmhe fou faa! li e ool ( ee C. 
CG bi i i a eT ee he a eS SO SS Oe e = =. cL eo, Oe ee a a EE a SE TES SN Te “OE Gard a it F- Cer hed Lil 
iT} oO OO wu i) (3 oO. Wit il uo i tt tu iad to ce a= 
Pa) z= ra te bt = Ce el Ct“ }- 
mt _ Ce Lae C ian r £ a 
a —i J a a as - =e | ai +! b= IE — C 
-_ Sia is ie ee ee i. ae “- ee ee de a ee ies re ee lee Zs at ij r- bar _ oa oe 4 ee ae Se a fas eos eee ra an 10 Soe 2 ra tae oon —. it Ci. tit 
oOo Lad Qed Led bad Led Lit nal Lid Lil Lid had hed ta? Lal Lid tut bal lit be let <a O° oO: Lid a lil Led bed bil = Lad Lod bed Lod Lod Lid bos Lod Lad CG cic Led bed fel Lad 9 Lad Lu) Li! 2103 7 ut ee a ee bhi 
<I Aa Baa a ae Tha 13 a Det (oi Wut. he he | mw is t) Q Tit Ce «= Bal Ww ea, el Det Ht Bh Wit ww ca he fit Si a * C: fy 6g ee “Lt F4 Lat So 
Oo _ . i by ted 
< i) a | _ iJ k- 
vu] 0 xr c oOo oF Tr woe - - fo tue _ —_ m— Li oe la! 
cu rearr ym r= ch f = See oP r+ ot et et oO ef uel rm ww m™ eae ra oO a a t= 
=> Sa las Sie "> i= wh Th = oe oe = a a a os aad aul acl a ch all eal onl a eo cee G3 be te zo i kes 
i et Fa es 4 ao Fi }-4 4 aS | 4 Fd mt ee Fa = er ee ie ir —} oa beri pay pote Saeed B= o 
* AA me FF =i <a | = fe —=—= eS. ee ee ee ee + a a li = = = Le oD * 1 fF i RBrekEeowerwvererkh Pek fF RPeaee fo tf Re SE 


Monro TrHO GYRO MDaen iO FMOOEOMO oA MMO TNOOA eH aA TIONOT on WHO THON OO oe MOO Pwo CO TUCO or Oo cee Ob. to ee ee Ga ep deo is, fo es cn et Ce 
= 3 5 - 


(ion hi hit Oe Va Ootwoaoop ooo mae eKe Kw Se aS state et (Loto tty fh fo TT 4 oe Pe Oo ep ef or ae ee er er et er be bee a ee ee a ee ete SPL PL? opel PLB Je St Oe oo ce 
Haeseteretet ers es CTC Ne Lee La ts fe ee ee te te St a Sa tee ee 
hw bi. oo wt - 4 iad eo co i> cS i oes co ie ono om Ose to Paws ly C2 oo ell et cp = t. cs a a 
oe ko ao WW kheoonr Wt csobkwo.c oLWLo © OLoOooSo ectvwh t o Oo < oO 
Oerit o> we co Oo fle mcs oc scuW0 4 Oooo WW LosGcuag cid om c oa c Cc cs 
Hocowto eo ao im Stood Aiy ocodc I cor go koeotdaid (2 ¢3 ¢> tO co ¢ «2 = se, 
HAfwWOosnw AA oo  BOwor ea fh Kono =a0o0 wef WoMlmornde ie 7 oe o cc oo o cD 
Tso so 43% _q ff MPTrotoeow fe hemo n! Cho Mm GAMstio Citas co & Oo oo oo 
ocr Oo ceo 3 ff HVootcn oc occ ao Ga Bon co nooo h& eenoiecr = . o 
oooor, or e iO wt te co ty oo o°0 ocd & “ac a Woot ¢ oe fil yea Fe cn tf Ci op 03 
Ooo .2:0 arc co cs oO ¢) cao (3 <2 occa o cnc co (Io mac (3 ¢3'4D co a or to) t> 
Mo BOoo -Mo co T fc) Co fT ec ft ca UuUCoS Oa woos co eaotifc ( c> ¢3 cS o eo c> © a) 
aobtiqoocow Wo tft © DHHeMio ob SGMonhe Hodqg oO WtWhoooco od o oOo af oOo os 
owowo Wo <> fi) Kilo Gl <> oo Woiaowesc , Woo = SeSocooce fi @ ¢> co o = cs o> cc 
o®Owwo «x co ¢3 coh iMimee iO Haegod Hoo YY Moe Woon focaeac oo fo oa & t& 
ea) {T fa. es fu os ee i yes YI cS se 6909 doo eB te (0 Li! — MG bo bel Le Fe ce ea 0 Ch ot f-.. tL ra Li. 
=a Se es = ri =i = oll eid ea eat wt = Sot et ed Cae | rr (fe et et et fu bo aw fy ti fv rH fi ff 
wmeGtrin wr © Of CQmwunrwW Lo amar We. 0 ON Eee te ia 
CU Go cl Cu iy OJ fi ti fi 0 tf td fut cme mm Mot m fo (699 ww wT of a am eae = rd 
oocccac ar oOo oF ODP CCGOo om onmrrcC o ooo ¢ Sc ecnonon cGoucoeo 6 a qoo o co 
Co 2] 23 c> o<€ C3 Le CC? io tS ie | i = or i tr oo cn -—,. FS oe mo cc mr ES tc ¢ ° eri 


ake: 


E.2 VORTEX LISTING FPPWCS PROGRAM PAGE 4 LISTING PAGE ¢ 4923 
eo4 ba 60 O0Ges? 
ess ¥ 50 o0288 
0044 | 236 ORG ADDR1- oo on2e389 
8 o- 6” SET MOVE AMOUNT IN SHIFT COUNT 6a Oones0 
ees FORTSE GEN PP LICBSSPEC »e2SCMIRID I L2CASSPECJ vye@eCCAZERDIsLT4C SUB. 00 foevzi 
O044 ODerFbO000 22660110 ess CiscCRVY¥i3ss,i13S¢SCouTd G60 go0e2e32 
e390 * WAIT FOR MEMORY oo g0e933 
ug4sS geszo0nn0n0saqnoogangno e231 GEN “*®,6°0C$SPECIs10CWAILTMND® oe oo2e54 
ese “ SET UP FROM PARAMETER ADDRESS GO Q0e295 
e33 GEN PNCFORTSLI»,LILOBSSPEC Is eStcmIRas L4acDECBIs 1 /7?¢CGPROUTS: oo Q0eSs 
NO046 O2@d40000020910219 ead Ce4CR9Is12CRSSP EC, 22e¢CAO0NED E. SERRE KRM 
e3S5 ™ RETURN TO NORMAL MICRO CONTROL o00 goe98 
: e36 FORTS4 GEN PNCFORTS7 3s LOCIFSP)sLECASGPR» 24(R9),14CINCA?» E.,~c*®* RRS REE 
9047 9300040404070009 e297 CI6CCRYLIsECMEMCOs 1SCINCPIs 17 CGPROUT 3 oo oo 300 
eos ™ FETCH FROM PARAMETER (COR INDIRECT ADDRESS 3 oo ons01 
e393 FORTS1 GEN fFE,LOCOFPSALUI s,s LeECASGPRIs24CRP3935,14C IMERD,LTECCRYV1)s EE. CREE ERS 
Ooo0o48 og2e480d0280070009 300 Ci7cGPROUTSDs6¢MEMC) of oos303 
b049 OeS004d0680000000 S01 FORTS2 GEN PNCPFORTSSI.,6CMENCD,1OCORFSMIRD of ogo3so4 
302 = STORE PARAMETER CDUMMY IF INDIRECT) ood gosggs 
203 FORTS3S GEN fNCFORTSSIs:1LCBSSPECIsSSCMIR Fs 1 7CGPROUT ds oc ag0306 
O04A OSSBOC8ADEQDAINTIS 304 CESstRSdIeL4SACTRNB os LSCLOGIs SCoOs,sacoss 7 C55 ALU3 og agecsar7 
303 * COMPLETE DATA STORAGE AND INCREMENT MOVE COUNT oo go308 
306 FORTS3S GEN fNCFORTSSEIsLCCASGPRIs,24(RBIs LACTRNAIsS 1S¢CLOG)s 09 OO0309 
OCO4B o2680000SCGF80003 30? CEcSPECIs10cCWUAITMD)D oti gogsia 
306 ba STORE YALUE OG JOSTL1 
wQ9 FORTSS3S GEN PNCFORTSS ss 1LOCOSSPo s,s BCMEMCsLSCINGCRP Ys LEeCAtGPrRS » oo goate 
nodc OeSBC4¢OS04FB8ON008 310 CESC RSI PL4ACTRANIs LSECLOG? co O60313 
314 - STORE RETURN IF COMPLETE/FETCH NEXT IF NOT oo goosi4 
312 FORTS6 GEN f7TCFORTS4,FCRTSLIs SCTTAs SP CSFTCas 10OcOsS$S$AQLUIs6cTESTT)s o0 OOhOSisS 
' 313 CLICBESPEC sPSCOPRIFL4CTRNBsISClLOGs 1 3SCINCSCIs og GoSis6 
nO04D #4238FF0325AR80009 314 CI@cASGPRI»s24crRo3 EE. cere eran © 
2135 aa) on uosle 
216 *™ oo gn819 
318 8 GG Sasel 
213 ® 606 gOSe2 
320 * Oo oogoses 
Fg | *® ROUTINE TO LOAD DOUBLE WORD FROM MENORY TO REGISTER A “ROD noe goose 
see " AND B CR1)D Qo GO?" 
323 ™ Gy C9 
32 = CALL ING SES ener 9o O92. 
ses “ BCS sat oo odses 
crag -) bad ADURESS ‘OF DEUBLE NORD cCMAY BE MULTI LEVEL INITIRECTS oo og3e4 
ser ® oo C0330 
328 me RETURN uO QOUSS1 
3293 ba TWO WORDS IN A CROD AND B CRi13d 60 oo33e2 
| sso 0 f0 06333 
" 331 ¥ FETCH SECOND WORD oc oosse4 
s3e@ FLOaDdDe GEN PNCFLOADSI»,LIOCOFSALUISLECASGHR Is A24CRIIsL4ACINCAdD» og dgoases 
OO4E OeSBeoqoestoenovgn 333 Cis6c¢CRY1>>6CMEMC) noe OOSS6 
3.4 ® *" FETCH CONTENTS OR FETCH NEYT INDIRECT LEVEL 00 ON0SS? 
OG4F 028009406S0000000 3335 FLOAD GEN PNCFLOADII*ZSICOCOFSMIRIs6CMEMCS £3 o0338 
336 m SAVE ADDRESS AND LOOP IF INDIRECT no goss? 
237 >FLOADI GEN CTCFLDADs FLOAD2 ss SCTTIsSLICBSSPECI»sPSCMIRIsL4¢CTRNEBs o0 o0349 
0030 7e7vseetC0e20Aasgoggion s35 © CiSCLOGIs POMIRS de LPCGPROUTIses+CRO) oo goR4) 
33 ica SAVE FIRET WORD fo Go342 
340 FLOAaDS GEN 7, 11¢CBSSPEC® »sSoStnhI RFs L4ACTRNBds 1 St*¢lOG?)s 00 O0S43 
0351 0230000020H90010 341 Civ<GPROUTS»s2e4¢c¢R0>d gf 1OSEd 
s4e = HAIT TIL MEMORY DONE AND SAVE PC oi fof 45 
0052 o2e98000084000000 S43 GEN CMSECSPECIs1OCWALTTIMD Os 1 SCINCP > oc 00346 
' S344 w STORE @NG WORD AND RESTART THE PIPELINE Go oOoS4?7 
345 GEN (NCESOMI»eA7CPIMNPS ds LOCO, SCO sECMEMCSIsS LOCIFSP 3» co ogo34e 
0053 a49009042F0R90011 346 ‘ CilcBSSPEC sA2SCMIRI,14¢TRNBI215¢€L0G):17¢GPROUTI»s24¢R1) CY Of349 
S42 S@ og9350 
2468 baal aG Yhssil 
349 ba of UOoShe 
230 bad On. UVES 
ee | = to g3354 
i etd * ROUTINE TO STORE DOVELE WORD v3 COSAaS 
< e bad 86 C2336 
354 ® CALLING SEQUENCE: 90 GOSS? 
i * DOWBLE WORD IN A CRO AND B CRID HU OSES 
co = ECs "SsAlB co gosss 
3357 ® ADDRESS TO STORE DOVELE WORD “MAY BE “MULTILEVEL INDIRECT® tt Bae e 
358 » of OGose 
359 RETURN G2 TuoSs6e 
S60 * DOUBLE WORD STORE? 00 $oses 
361 = Ce ofsed 
362 ¥ COMPLETE RO CAD STERAGE Sea C365 
363 FSTORe GEN (NCFSTORSIsLECASGPRIs F4CROIsLEACKCTRNAIs LSCLOGSs Ge o0366 
0054 GaBSOODC0SOFSO000 364 C6ECSPEC);s1OCWAITND?D Ch Co3sé6?7 
363 bad FETCH ADDR.SS TE STORE CIF MULTILEVEL INDIFECT®S Ct Uses 
OoS3 oenooeanssoo0onoaoo 366 FSTOR GEM PROFPETORL As LOC OFSMNIR Ds 6BCMEMC 2 Oo @o369 
367 STORE A CRO? GR LOOP ON INLPIRECT | Nf ooO3ro 
368 FSTOR1I GEN PTEFSTORSFSTORSIs SECTTIs FCMIRSISIDOCOSSOVRI®VECTESTF)s pf One 
C056 2@ASeRCIOOFSco00 363 CISC ASGPRI»,24CROPs I4¢CTRNAIs i3S<LOG) of ng? 
| | 3700 | STORE B C(R1) C2 a0. 
ac . Pde | FSTORS GEN fPWsPTOCOSSALUSsLICBSSPECI »,sSECMIRA AFC INCBos tac eCRyisas O49 O98. 4 
vogr oscongosenisgoi10 37ea CIECASSPEC) »@2C(AZERD)» SC MEMC? An Oars 
s73 =6O® : CONFLETE STGRAGE AND FESTART FPIPELINE Ao oars 
74 GEN ONCESTOR4 + LO CTFSP 21 GCHENDD 21 3¢ INGP Ds LECASGPRI He SOSrz7 
OO58 030800404F80001 375 C24(R1>s14CTRNAXS15¢CLOG? sf 49678 
. 376 = ¥ oh 9g03°"9 
sf7r06U® | an go38o 


4 O33 


q 


TIHG FAGE 


a 


Sint 


PAGE 2 Lt 


PPO'GE it 


FPPWCS 


Eee& VORTEX LISTING 


af TOW OO orto Dhow Ma Hwee Th oe ee OP eo ec ee ema dott co ae ty 9 AP Boe t. Cot ae ew Ge So PB ae 


SHOWN mAAnA.eect isaac oe Sse octht dade eet Ot NY TIO oe og oe a st theo riba ewe 
SMO OMOM AMMA MMMAOA St Pre tree Per a oP Ro Oo eos sro oP Soro a PA a . ae Arte 
So oocococolt eo CS CeVCeSeGoececoecoG oot oO Goo OS TSS OS Ces oe eae Oe eee ae a eS eae Te fo. 2 ores 5 
SS oro oSoosecocoo S600 23 COC CSS OGCa da SIO VOw Got OS Eee Ste tiated th oe eo i eo 


— a . r Tn | 5 
= © + r & . . = = “= 


Fal eR PA, 
ze ™ Ee. 
ae ee ea aa z 
i Ot od § -i oe Fr Co Of 
‘ia $i ee ies ‘a 7f<L tt a. la fi. ce 
Te Mat Nee Nl a ee oe oe oe u 
a wiz Lab abbr i Pi 
a maar a aie! 
b> 6 


CO deb bed bed oe 2 Ld eo CE ae eaak = 
Ce M > Tes eae ff eo 

ta C9 to «2 C9 FS ES ee es wee fe 
LETLES Pre wots Mh 
Cri. Od me Ld bb Le i, (eet le 
be eR ee ee te Se to 
te) SOUR ee or cae il Ce Oh 
be GS ae de 
t3 t} tj oO 


7 


a Weider 


Soe OO ds oc bo ee coe ce et Go Ge ca eer ee a te Clete cee See aay ee ae a es ee a a ee ee é 
Sa Goo a ese ooePresaea ores cqcoooercooceoea nog uot Say ees ep ert se ey SS eh eet ee Cee oe ee eC fe te ese ae tee Se eS | ELE! 
Nid 
. 
La! - 
i si 
| a) 
a 
ied wit 
~ * FP aa! 
-~ ra oo hai ta) 
ie = _ E=- - 
= — *) ti - ik = 
ma - ee = om . - ae pe A > 
kal = Sweal! oY ety a ry 1 ite Paper ae 
Ce ce att iL | r ee ry hkl es rie ie ' 
cn nd tr a ti = G+ EC al = = mS & 
lel Li re en! = onl OL OF ign or tt a! ad ! Gi. 
4) J am I —_— — ion ae AS a4 i fe tf." mr L— 
- iJ -_ Iw —_ ie iD =* it F- fl ma lal cS 
had a ms lui = — =_ | a | Es 2 a = = = 4 i) 
= pon = ce ce a _~- mot Mee oe me Cr LE bes - ——— 
re = Er La sey a mw Thins om US ila Pe ee ee iu it . p 
a ta ca ta iT as E? im a i i bis r= Le ti me i et 
Lu! Lil te 1 fo | a uy be om bal et han “L aie . i zm 
i iY i rj (4 #T oe - te a7 se on om, = ee ae ‘7 os =f i tom _l 
Oe bt tt — | a Fe rt Ww ed ‘a Gris 2. 2 ' fi e- 4 Ate a “1. _ eee .— 
oO aA Lud i Oa? ra v ny O° = ld a = —_!- = ia mat nt t, 
—* i Lo Lil Ce ef bb) au = Ld wT ~ Be fy wh 09 LE tal we Me a v4 z 
od Pee | | # i Fs a ce . Ee p= Pa a ae y | ” ay he hos - fe 
A oa oe ea CJ = * as oe i. ee Ee ee ® eth 86D my nae 
a en =a Ge (2 tod ei fe oe Se ae eerie col eo un <r te Li te TE " * 4 = ~ 3 
Lid i: | = rE a5, oh te it el 7 Fe f251"% rte ’ t Iu © 
= I~ a | F= Li! tu — FI f= {2 ed Teter os « i 7 iY ee b= ioe. ia Ci | oo ta - i 
idl Lal i ae = oo a _o= "753 hot F bat (2 Lad i i = i net ce io.™ £2 tt 
i —l se kiw w LR i Kise et i o> & = - Et a 
i et A a Ww ei om CE wa ee i} a a ee b- tl tl = Ce tal ae x. it ie mi. bw 
bk F- Lid tom “ ~~ —. = Mart ae! me Ceti i Meade at tea? ‘ot ical "E Li 
eal ‘ail = i Ban en fe LT em ibet ee «. oe Foy ee! FE a La Gf c= ao a ge a Li an 
pats RS a | a. Ce. wal C) ee = C: ep a tm, ete 1 Ge Fi) @ C7 a. Be Lot Pst ro ad el was fe H 
- ix mee 2 OD PF ~- We es ee 4 =. ee co oe ee 8 i Is - Uf mail 
a Ee a as Gees COL ee i Ay Lal bt oF lu _— a) iy e se ~ me wall 
Lad Lai wy fe ter a de - =o i ee Coe anf oOo et ** id fe Ge — 1 ss | “ise sy. 
69 4 Lil Dufur s em Wee WE bot oe coi al Fat mm Cie or a - ~~ dee 1) ka Se fies 
- OOO fds GE i ce ited ie Gl 6D Ok Weisel bie Ll ote OD t ln Ce ™ 
i= £92 SEs fe oT io ca “ae PQs tif. et. fi. Fo it 2 i} ae | ri ae fal Pee i= Ce de io rye . 
we <E bu r= ct qh Se ote es Lu eo Oy er OF SS ee i ee Kat a Lal a CE fa/ bese be i a ae fe. 
oa G fee te G tte etty Gg Iw ou s 2 Wess ee 8 7 ener + 
hot at Zo ie aA Ea ist # il mo «hy ie = it a | | <z — al “7 = =* 
ram Oe sWkh awe op ooh ee - se fe LJ Of eS itt oe bk —_ “ 
=8 Lui F- HOM af = & f Ci# m™ 64 Ld et — FR La fle * 
= ; 
tS 
mo 


(ER? 
FOF TERM 
F: 

3 

C 

Le 

nm 

+ 
EET ¢!4 


9012514 


fNCPFORT 
“y 
L. 
4 
Inn 


DO 
CIi4N TRUE: 
7 
a 


E 
S 
F 
F 
“RO AND B CRI 3 
& 
M 
Lise« 


a 
3 
c 
mn 
RE TURE 


GEM 
GEN 
GEN 
SEN 
GE 
E 
BEN 


GM 


C.) 4 <I 4 


GET 
HEF 
a 


e 

1 
F1 

re 


a _ 


ROUTINE TO PERFORM MEMORY TO MEMORY NOVRLE 
E 
C 
E 


STOR 


Mm be 
a ee oe & 


* FETCH INPUT PARAM 
K 
$ 
T 
i 


F 
E 
FMOVES GEN 


FMOVE 
Mo’ 
0 

FORT 


ra 
c 


CPP Pee ew OD * 


ma 
r 

* 
FF 
- 


* | rRhHPReE PR# +t +h RHE BRP eRe ee eee 


Horror oecre erode Tr 2A MOonrWwMO Tow Oona yrnwoh heme Mo. de TP ee. OO cet oe pa Goeth cs en tte 


SOC Mm OOM tein De be AO orto to oe ce ere te Sete eer A fi ea Gy OL ofa ee age of Meh ap oy wt per a ep te 9 EL Lei e 
HOMO Ori near mino Ae trervtirrcrtercr#rt us Ete err Para et te de rot da oo or oc ew rot! op Sak 

co Oo = é Go wd ) i. — t* ly & 
Cc ea Cte) Ce | e - —_ [co [ a) te | a ae 
cp tc co c to w > lt cH co a3 o0 
= cS aot © am Cc [rs = [a fo co 
o 40 cn cr, ch it o tt C's io 
c > cL a e& T. vi i. re #0 ren 
= co i} ct ft c* a. + a | t> ne) 
C2. i ba fy % te bw ec er ct ox Oe 
wo (i tz c3 T o ‘ wr + at oF 
cm co tS <3 o aa) cS Ts = ca aa (5 
ty T tig i ww fi) u i. hs «fr th es 
Cc «3 fy [ oS o oo c t> oe 
iF, = a i ‘> oo => 2 c G3 i 
a ti i} hu ie x Oo) oO «wt c: UF 
fu a te ft in qt 1S = t (4 
oe re] uo i a i = a o cs Qo 
a «L eq tJ a LJ Le oo td mn 
uo a") uy vO a: a wT 612 fi i WO AS 
oO ¢ £3 a | c co es a ¢ > oo <¢ 
= FS a] a | fc ii a aay 


iT de 


AogQqgrad 


Me 
eieie.? 


ame 


444) 


¢ 


LISTING PAGE 


PROGRAM PAGE 


FPPHCS 


E.2 YORTEX LISTING 


IF VALUE LT LIMIT RETURN 


f. 0 


AAMOVNMO OSH OHAm ms 
ttrte rr ttre 
Wogwwoegecweoactiac 
> co a CS Co Op 


Se eae cew 
ooocdoamccyw co cto 


mo ei hj mM =< Gosh 


~ = 

* an 

oa 

mal es 

or a ar 
ow tee ‘a tL 
Or m o 
Wie oO 
oR = = ke 
ie Pn’ ‘at 
~fe W = 
i hal = 
sz of ai3 
a i (4 ~ Ey 
am ia ao 
Eh) -~ LL) 
eede EN 
ea ij = 
TOC Fa 
Sli ae ee 


wa 1 14-4 1 
oOrWu «fF 
ef RHE on tk 


BR &Wo «TD «ee A 
ate ew Des AL Re 
ATNoktowt «re 
mf) om ee ee ee fom we 
ie AS Tes oe SD 
ee ee 
Wee a we ewe 
ehewrewG «9 
PING BU aoAt 
=_VvVvreEeon hor 
Cro Ia ie 
awe Giewie oO 
ety ew Pee et oe i 
Washoe haa om 
mek ew nw ew me Cl 
aK SAO Ae MY 
erOEeeS aor 
SEOUL WOe& 
Wet vHerwoAaco 
-— jJUWF MW Ok. 
hel hel A A Ye ew le 
ae a a se ee 


srt “Cr a SL et UR 


oO wo i) 
Le. . el. Da od 
WW WwW Wa wo 
uD wD wow Wu 

z co 

ox 4 ty 
TO DS ket hm & 
SE fF XO We 
ae WW WA OFA 
wait &Y ZF} ure 
OrROMon WM tT) 
SAAB 00 00 0 mo i 
stort ct et 
& lu co Oo 
o -_ ei > Gc rh. 
o> °©. oc Oc 
o © oo o 2 & 
o RK ODO Ho 
oe 0 fo to 
oOo. 8 86©o8C:6€UNthEFhUCcOUULU 
oo. to oo 
oS So wi oo 
oOo oOo oo @H 
se oS mh oe 
f oOo <> <3 © fy 
oO os mr od 
se wo Hh Gj ur 
© wes 1 ty 
n oo oo ow 
oOo A We aes 
ww) wo wW uw fT. fe 
o on] co o > 
& o on™ = > 


2 
oy 
Ps ie ee 


2 a2 cS 


ea th ty 


CM MUMOTMOOR OM OK MG TFNWONOMGOKR MO TNWOKNOKRoANMTNWNOMonMWMPt NOR ODon Nor 


PNCSSUBADS LTO COFPSP) > 6°CMEME 


GEN 


SSUBS 


we ee TT ON 


i ee an ee 
THALES m oF 

ss e RF 
eS me GE as 
oonaada + Cc 
¢ ¢ <- = +f é 
fr yC31fu 
car eee oe -4 b= 


"s 
sc 
F 


mle “ CSTR Te 
TeEeAnattawWow! 
abt 67 OS fee ok. 
oe Te : 
en ee ee ne 


ore pee ee! ed ee rey 


Maat att SA 


m3 03 COO) A OS oT 
Po 04 6G A eg CO nb ee pe: 
een ee fe Pee ee ee ee ee 
-—_ *«& *&§ + * A he FR 
AARRAARAS 
EEEEEFELE 


ee 


CENELEOTE 
NOLRL+? 3 


at 


a a ne, ne 


et ane ae el 


7P 


Sef Bf 3 BS Me 
MH 4 MMi 
EEEEEtTeeEe= = 


Vooouovewo 


PUSHS 
PUSHD 
POPD 


POP 


POPTA 


ray ef cn eb iy 
7% Wipes ae ree 
" - | rig id 4 i 
at = 
2 ee a a 
Lt sal I am ype is final Eee i 
| a ba! x ty 
a f- Cj a i 
{L « om, rT a 
Li = mir oo “a 
be = = +; O's a 
_! ut --- } 
i pas mab hb - = 
Se: are) = 
r ave ain Of ies cl 
ee te CL ak 
=? ey fo vc ‘te 
= = wee be oan cvs 
ail * tl eH 
= i 8: me Bout t . 
fie VEsft<y ror 
ee {a Eo) dad O be. an | 
e™ TLE in wt ea GL o Do bo 
tof = ‘" 4 tJ 
bil Se = yo TH eo hee 
c —_* ca! - Pe eel eo Fa | a 
a rH %, Fs - ii ae ee te 
iow i tr, PW diab te 
ey eh Bo! L rag eta ls ee 
ee aa fe fae ie Letes fy Be 
SIN oF mE bes ae - S 
“Owe vw Te rt B22 te se 
ed ee a mw Ore 
mo = S - 7," See BE et Pa 
oe is ah oF - C. - eee Se SR 
a oe rs es =. 7 = ia P 
mee eS a OSp Stay REA Se 
hi ee mb Ll i" dt ee EFiuitm 
ose fata to El oo So 6) oe 69 EL - EF. +40 Fo 
sot eR Cee i Be, Be e ief ow fe Ge 
Cow al er a Ha ee bP om pe gl ee at 
tw “tan 7. fi ir fit mB. | * an Ces ee a, S| yo - Fa 
ete awn SOP Pek SP 4 Cad Gy 
ee Coat ou Boek Tee on 4 oe ee oe oe 
Lbar = Pf | 2h Slee eae : ee ee 
bi #% vee oa = — AC ike 


- eee ee ee eee 
i¥ 'roaMeLabH «aWUuoS 
TEM OF Oe we 


TMD Toes ke ee ee Las O59 Co Be 


at CY 8 Ge Ee To) es SS re 
Ci) egy se Se ite ee UE eet id ee et re fet ti! 
eee Op eh eet ee or eet oe Goes Pee on k= pe ee oy 


et weet ow ff en St oe Ge et rd et oe om om 
Pre ne Poet eet Kee TO se om ee CE = 
oe te a oe fF. Oe tO ee Oe ee Pe OF Ee 2 
o-. 1 Ue Le Ls Uk 2 oo be ee ete OO 
Ak ISAO SV LIAS BOAO IIA ONE 


(THEMED OMIEORWHM Or Teo 
Mtr VIM Ew Wwe wc e eM 
ee a ee ee a 
22a Lia Oe MS oI ZR 


“~~ fe SS et Te STS Sf ON et 


oOo a i i) fo to Co ts 
a vy 
= i= ie —_ “kx rn ee ra it 
Lad il Li! lu Ea lal WEE LJ hel Lit 
Oo wo um Oo wee oO Sa 
tJ ) (T 
0 T we OO. OO Th wt b= “ co <4 
aiid am | = wield: al td ma rt 
oa a eae eo rer | mel Pa oe aol he Gees 
pS = = ay EE = ul =e Flee - 
no e 64 HHH ee oa 


Ww om co 


ee te te 


STACk PrP 


i 


= 
~ 


ING 


=~ WMO wor 


—f~i— f= <-t hh i-th ee Eee Eee ee LOLUAUL EDR LOO CLULORURULUTORULUE GUA A ok a ae fF af +pPpwopy: “709 63 OD Po va a wo 


fy ta Oy Oo Cu Cy fe 
4E WDE es CO es 
fhm hd co 
Cal fol fol Oey ty Oy Oi) Oy out 
Qomrooocrc0c a 
coo oaaocoa 
Somwoanrndwaa 


(ij tu 
Po be 
hh Ts 


ed be te let te be he 
WwWwwvwww ws wo 
Oooooecas 
oOooocncooen 
eo oo Coots & 
6) 03 (3 09 00 CO 0) CO co 
a0 0 Th OF bid bad 09 Od or 
Moo Ww rem es 


rf restores rea oS oS Sedo td od 


oOnmUM Tne 
Cow mwooo om 
OoOooceocesos 


ea 0) 09 <P 9 BO os - att OL CSE iF J oti te & 2h epee i: GS th 
of a tA wo. oN Co? Gots ce oS eet ee rik = 4 a zt are 
wow tr wy : Sacre ii 1 in ety ow ET uy SIP ete Esti Give bits: = BY 
act Oo Si oS q NE Se CA ke Ca oS oe ts if £ i 
fae hal CS oe Go oe So oe _ . YW ee a i oe ta a To ee v 
9 
a ee ee ee oe Coote a : eS a a CSS TD ee a, EE ae Sie EE ee 
Go to fo CS ao os Sa ae! hee Hl oS ee Sa 4.) C3 Geto te Cos fe ores Cy tae eS ee 
x OJ -- 
iZ ai: =» (xt CS 
Lu Mis Li i <P 
te 2 k= CO -- ‘2. 
wf = onl C3 Oe =e ae 
“4 — Oi. &) i i) b— ae 
Li! i) al a te te oii sz. i <= _ 
Y wo or) — ea oF eR toe te 2D — o hae! 
= = os + 2 ite « <E ~< oJ 
x = = me te Ce Ci ta) fae b- oe Li cH a 
a rc <L Ce o GZ Gi C2 il. Oe Fa lot fo Zo bu oe 
Lal ce Lu ia Lad 5 tJ Lo ee TS on Li ci = 
= = Lo Li. Li. Li. ae "Le ut a 64 a Suc 
o- ae oe ee MMOs ee UO i a Loe 
Li! AS ee i BA oe a o—-Ceoag Se ee ee ee 
- UO thd = “I CT re LIZ iE re eh e 
<r ar ao co Ye ce iS ee ee L_ k= iw o=-* 
re i Lil +4 -— k= a +t b— a | ‘ST 
cS SS te ils > -. wm taj To i 
Lid TD = 2 lr ee es * Ae ie a 
i aT ht es fe kal fa is. oy mui a, 
Lod -, ~ ms, ar, oy, Ty ey p= a LET ee wil a am: Eat 
eo ra “ aa “ty cu eh ee oe Pipe Ze 4 LE 
Mm = a, a a ee i aa YE Bev 
wu oe oof Oo ~~ & ~~ 9 00 ie Wa 
oO ol ee: ee ee: ee PS jo fj mo ~~ 46 0 
oOo La Sea” tr] at fu al ms aa m Sa? ho =e im 
=z m= & « OD i - AS a wha 
= — oo i on ah = ce ee oe? | = ()°3 cm 
cr = fo) iF. ae ¥, (i oe PTET r. ms e 1 ue CL. 
- oral Cie ay om = om, =. Ft ee eS ce gf. iS 
= cI - a lid oF 2 bq — iF Lid bal Go be at fk et ty 
Lal a - = 2.2 EF CF &Y EBERS OFM « & 
= Lil <r: eM fe ‘ ce m Shoe et we PO Ea. wth es 
Lil MS te ww Fe 40 R= FL 0 8 LJ 09 Get ll <t fy 69 
a | ‘i Mf ‘ - a! " Na! — wT wm oe A iL fle Sra oO 
o wT =f a = i, 3 bs J et ‘—" mtr fe 
cc wet fi Ce J 4 a = wt hR- e i on e wm Yr. + 
=a ~ * -J is | wr WS es ew fs, oO) wm we fj 
ee mo ms aa a0 fia ee | Abas on EC cD 
1 a cote CA Gewese adi die im hOorlLak- & 
= a Hol Aetik HMMA Sik eee eT ee 
= 2 i =—_fOo Ecro EY¢YOoMmOoOOoOwo iW Ora Tit 
el Cp ee Ff Le oP ‘ef ee Ee ee a i) oo ee ce | 
ba TW cL Oto 00 “G7 wMom « de ee) ae 
ay fu0l—+t Cite MWe atk set ih enavWonar 
A mS ar 8 me Roe oe oe oe om ome ome om ee erat et eet 
Lil fT, AAA I EP ee let ea eh, art ow 
aud ae MOF TMeMO-F TMU MOAN » « Pe ee ee DD 
Pua =a = OWI OWS wAOWoO eu «MMAR . aww =F le 
= om FORGO’ hOoOULCRKOUARm AA Rea ee 
iJ ra — | OMPKOoOOMCUUHYME CGH cttac eSAvunRA>s 
- oO FO WN SHASTA HoT Gb wee To CTOs rw 
ted, “) eththo C&C HMDS lI aa OME wes tike HMM JM Mf 
4T Oe es f ha a Ma” Thea a at a ee a tet A tet ht The tet at te te het eT A ee ae et J 
ee £N A “Ae SetAaAh Seah HOGS kh Ss 2-02 tT oe 
Lil ee Ee tt et ee Set Cu “SS et SL 4 
a = od ot) yt og i) uo ww 
a 
| 
a | 
Ee Juz uo = -_ in a Pa im bo ._.- =. t- 
G & uw f wb) ial Lil did Li uJ Lad tad Lil ity LW wk 
Woo o Ww wow vw a ows uw uo 
) t=] — —o pQ 64 - fut + 
al a of fe pa a a he ke ( +f m wo 
a ce J i «Jj i) ot) AF A FF 
<L =) a it. 6 Tia aa A G6 
- = -_ i i. ae - i  F- acc gr « 
eRe #F iv “ | —e — a MMM KBRbHe MM MEE 
ROoOmoRrMOTrNwhk OM 
OOO hh wm hh oh Oh 
trrtrt tet PT TOO HN HH VNPN VON NH OCH NHN KH VV KH HNKG LON HHO NH HvK Yoo ouw 
o om m ~ (0 Fa A$ co o I AQ eo 
= oe oo wd saoo a o = to 
iJ o oc © t> i ae moo © o oO asd 
So GC o 6 oOo oc c oo cm Oo o oc 
4 no oo om now oo o ff ew 
i Ic to a Too € o & m@i 
{0 oc © < © ooo o o oc soo 
8 fo hj (9 fu ryote fy 0 f of 
oS o fu © fu © owwo o +r ce Wo 
2 oo oo o ooo o o.lhlUcmOmlUC NCO 
oS ot ovr o HdrtTr o Tr Oo Wo 
oS oo Oo tc c& moc > Co o oo 
0 © to) oo Oo ooo a o O88 of 
4 lL. *t li. th be won © w ll ko 
= ue TW 7 Tt Mon mo © LF 
oe oq oo tf Toned © | a & oo 
mm mr fy Oj &) TH 0 Kon oe oO Au 
a st fF. Ph Pe. hm Ps KB oe on a eS fm RA 
& ae c> Co oc Oo oo 2 oO Cc co oo 
er = a | ct o a coc C Cc = oc 


Oor7F O56E04S0450000000 


Oca Qoaonadcc 


SILI HIDEO oh 


cc ff co if! Matt) Te ett € 
— co — Lil @ & tJ me <0 fey 
—~ oOo oo of 2am i 2 oo 
o oo oOo of) aot LiL oOo G& 
mn oOo ff HO OAwHse iL mmo mh 
eS ¢ © oso kao oO ok € 
o co 2? oo ofc =i tt cs 
Oo 6 OO WW ou wef «¢ 
o wFr co ow Mow i Hoo e 
o oso © Of aGaoeo oc oD 6G 
o wt oOo oo FOS oOo tro oa 
co ce oc ofc | 
o 6 oF &@eo Mom o fo 0 
Lat u so woh Cece Pe 03 bul (is @ {= Oo 
ce 8 «w? tert on Tut tT TT tr wT 
= co oo car oan [at om 
oe oe oF Who -— hf wT 
oO to Co O88 WOtiin m rie of 
o oo Oo oo aco o coo co 
=o coc oc coos o © c 


PE ee ee ee ee ee ee ee ee ee ee ee ee ee 


45> 


€ 


ELT PAG Pease 


FPPLICS PROGRAM PAGE 


LISTING 


E.2@ VORTEX 


mA OU LO FOTN 00 OS C3 we OS FF HL ROD WH UCD TY DG eS OP HED OR ee MC LAE 8 Pe? at SH Eye ete Shee eteP eae eae eed ee Me ree es veer ee cba 
BR RRR RAS OOOO Oe BOO OF eo ceca Ce ct tee eget be SEC SS big tobe SE AE a aes a eal 2 eee a 
| 


a ee a ee aoe ey so l ‘ a rc bev el Pee we 2 op! ds i “dD 
WWD ws chet Wwe ws Hae Dn ae a ee hp A eS a ee ae a oe Ld ee a a ae ee pa AE) WP Ae ne adhe ig ate ye 
Ho HOM ef oS Seo ee eS ee ae Ne fe ee eT ae ee eS a i Ae eh i ie Lee, Hand j : i Pe oF gages Ae +a So a ee Pee 
2p Co Cp Dc eee EE oo eS a A paw OE : 
= « 
Ga at ey ae oe ee a aT he Soft z oe i oe oS |’ Fae = =F ro” Ld 7 5 
AScOgi nares HKcecaotAa OVee St Oesoasg narod Re Sey Ma ee ee to cre alae ™ / é me & 
ch. iim wi £ rid ti 
i | Lid Lil he i J ies =. Lu! F ie 
Ci be exe & WE COLI Oe a “4 Lu C2 ~ 
rr _—* i -_ + od | al | j= - i kK * = 
a oO - re —! “al CJ »— o. i a i iL ere “a I. * 
a. Ut '= aa) wl = C) 4 EE ms La! Lil Bl ka Le ee r fre a, le a 
Ci & ral CJ — a a Fr ia am aa es tal ba ‘fe 2 had Li p-t" a ‘ tT 
al Cc) - = ost | ty. Lid a co an ae mv a > ti b- ix # i ™ 
= al =i vi «6 - ee i i i G OF va Led a “_ 07 ia =k 4 . Cu 
ie ae + + x CF Frere il “MF ci Cj 18 oe ; ' Ay e. ~ vr a 
Le. fe <t id 4 it —! oe Lt iT Tr Tr Lo Li of Bp be 1a 2* - bot xy i = - 
Lal CS aed Cc) oO a a y im Sai r ™. he) rm os at EL ws fer es - i" 
Oe dal ft r - oe ee mi 1 = * bai r= rd Ww fe anes oe i : 
cl = i} i es Tis aj et fi a = ia = = Cal OD fo ee et Tr: = «ty iv 
e Cit il —! | =. sore F - te C2 « wet - ee eg a 
wie - oO “ © OObtee ett eS L =) 62) i oe = mi b- =) Ye ee cf 
a my Hie | | Ts eo ae Le COL) = ie Co Ci te * CL k= bid 4D ; a Lui To ie 24% ri) 
Ra a | oo ‘a al CT ms | are ae fy cr iy _ * ie «Lc “T «fr Ld on nt a i, ee Ht - 
- - a oo © Me@& Tt «DAD «fF a b- m4 “3.2.3 b's ti i ce oi a. ibd - a. 
ma mm, al ei Ota i al li = Ew i? * ee * L fry ~ te F ee 
o of *- _— Llib. tase to - he ot -* or 4 oe a ” - i moe itt 
i c. un a ae Lijive tfc Laity dt e hs Ps oa eae sep "4 ag be Gas rt at iy ~ 2' a FB. Os 
Bat ea = -~AG. i fi wT Cis “4 «1 FF i) " m ry be 1 t'. oll es e Cre te a 
A dir ce ee iS GCiw «a os oe cf - * ” 7 ‘Tt <. Li Le tT oe m O = ul * tt i a} 
a | a8 q Zc aa! X=" at hm it od] id mo ony I _ be = k- fi » t- [) <F J a OF 1 Lear ad a 
= nd a Tt OC te mM -( Mw ~ wT "J i Li Le Lied id = i fe bad #7 G9 try 8) on by ba be 4 (ls ot 
“— ae | Cu Fa Of fu we we ES ee oe om ti tC) CI Li. =_ Ce k= Bo ‘ait = “f Cc # * le 4 ith Pe 0) 
a ra ce te” Gh {4 ~~ co Ld one, [Par] =. wo me od * * = te i be 9 wt ay ‘a w, pti melee v4 
I * - = or —_ oe Se ee ee ee | = Pe oe are eT ea fig J C3) iat £ or oe | a ie ee eo te =i Ly a : ra . 
o. ms ‘a ~"f) « » i aol) & - T CIC TI) bes HO i on Le i © ful TL) = Gh G _ tt aT ft - 
+ to to i” ae a a ~~ me eer od ee me La. Ee eele “bdet by tf cab o& ti ee Fe =<. ea LS L:! « Cli = - , f3 
to ; = Ca a “aL i io = ware «IT te With Oo mf. me fo bb) Lo oo w. CI ctl ih Ce bid os. Ce le i _—_ * e lid Sl yt = 
mm _] Lid Lu = - = FL ik oo Ceo ft aL *, EMO ah ot tihh oom J b= f= Lil cal hn ¢ ia cL <T re m eel Lad Li.! 
o> E E ms — Ae ie ee oh ae oe | ‘ = ‘wh i ht Gee Ae £9 0 oe OQ 4— - eel Caan thu .* - 7 &. & T Oa = Ci = 
YE — Ne A Oo Swe Lt at Too =F or. Fy Www We was od a iw we > di) = ti fe te ty iad i) = ie ei * 
it wu i E & ~aaw Of elo tore el | ee ee ee a Let tJ OF I fe «I ee | Ca — ree 72 a bal "i f. % "it 
Tt a oe a aad iG. way dw Ce) aoe TD = Ci» ee ee ae ee ot on Pe iat G1" f 2) = * Bet Wa Sat Fe 7 
mw ee | my). =O sO aw Ae Deol 2 mo “fate 2 ee toe i ee ee Ls. #2 lu F f . be es a Cy t= Os] . ' 
sol J a! Fe aoe ee I ee ep od eee ee i. 7 JF Fo 4 EF Fo ae EL i ear: CJ ine | el a hal + r- be owe Fe eS Fi ri ~! 
~ J aii = ree wan Ove TAwoW aoe The et hk- ete FE TIF: « 7 ofa —t J # ir J dhe a “ L. = i bot wu.! 
e IT tI -— kf Cette it i «lTIH awe LS =o Da « dh ta oe om eet f= ff - ee ty te tu ok a | rr. uf tft PAT tS By ji «-« i. tf © E> ie ct 
— ih om {ip FH & Mel «Ha anh. i aA a ve « (9 Wwe eee ee Ti we ct Lid a. os et eyh- fi. 2 a WS Up e Pb Le GD La ee 
Cc) I i ie ee yeawmeOOgddier « TARA sc FG Fists ose oie t r... bid Lul A ro LJ ss Saeed be oe de OL! fk lao 2 a bl ede ke oy LS 
oe ow i Cart» Tae aevwEw aes MT eth re de eee PR le ee on *. <> -b Ns oe en me ay OY FJQJC] thas aoe oe eee 
oe foe ws ~¥ Oervoae@doatrewWdajar oa B05 ce cd et Co rs m yw a i- S Gz fj © (e- Teo ss. oF bee Sige) iar Wr a TT IS he ant 
v=E on eofes < Hayes eth aH Tha Tce aff wtetee fret et CeO Ca OW o Por a ra ed Biyspoee or tlh. B, * tj =—1k- = Ol + iis 
‘at it ee eak- ei ee a = -- i se mS «fy a etrted m J) =a wt Fa th foe Hos fy. €* «# . et ee eo ae ee ee een Oe 
rf = mh no om om ee eee EP At on Po oe Pt Fo mem a | o ee | lid ia = Li a ee a Lio os we ef =A & fa wt & 
Se a? i i” ee ATE TH Taha - tt =f tT oF « Tre Pe fon tee ae = be fl] =f. w. | Et-zk Ee kr @ le SC) «kr Ee a 
~~ el fun YAK M461 «HH sHeot =O rs OM sor se ttt) « * a wu iy i fee we eet fi] | «D> « 5 Li) =< ere ew fie Gg ee yi 
a+ c= a «IT OneD g=«ODOOMOO-OBh Oro «= a -E fCieeaticaAan>oes C*) i (T bed Lad) Lod | rs kn fy) - Ge tr wom Li fy FG Pt a rf HHake T 
o> a ae eae eee TE ee UF eA J el HgLpts WOLD & 6s es Fe LI! ae ad i (é te cui i (Vea ee Dlg ly eerie et a Me Ouieir (4 > or a 
ce co JM Ww = HMOUMVGITOUHOFTUHO® ar oh 4 aoe tr. eke TSO Seco ie «T. FOr co ty 2 eg pO i FOG Fo ot. &) G4) ce iM Te ee age Ce 6 
—_ & te oo too ZSOEMEE wzaREtrweEti ute Li ce bs eit FO fie Fa Gx ES al ee) fot C107 Cj G19 22 Tete eee FOLD TL Ce. 3. 45 od oe 2 LE Ca r= a. 
net” heel FQ se a ee ee ee ha a 4! ee ee ee | | eae a PAT we ee ee a oo oe ae ee * 
ne | a Zcrzez aTSTeLZAZMOR-MLOeK-TF C2Yro CelHeaaA Laer tle ve sk Adu Fle ri AR aetr OFM Ff FwwaAt 
= ™~ tJ ~ WY" SWS. SS ety ON OU Ne ae SR NE SE Fe - oa s* EEe St ON MCL SS Fete Se So “ae 
\ uy 1 Oo Oo o OO WY & uu © wt) i) _ rad r ode We oOo Ww bn of 2 Cl fo 
> t& te aa =a fea) a a | LF Lal 
=) k = me | C) EF += cz tr: = T 
is z= CI La (4 !' (2 = _ Lil La! ri 
Aa As LJ = tJ | sz ful aul k= tr i Wd a 
Fa) c- ral i Zz. = F st =e rm = _ . Zz. sl rai ee rl _fLne Le (4 xz — > wal eed HT, gu tS Fa ED Lie) a. et *T a Le Oe -a Zz. 
E bid lu tw Lud Lil Lal Lad Lol Lal Lod la Lid LJ hal Lu Lo id Lil bid bul Lo Lol Lid Eo hel (3 oO «I é Co te bul Ce by 32 Lid 09 tu tu Lal z. re tal Led Ll SL ea ad 
Ba ha | Lh ww al th Ww tae io Bae | © al uuoW 1a Wiuweow 7 J —E i) o Te ie ha ae Awe we Lo mi tac Fy Le es eo 
© -_ “ Ww x - WW © + ce ocd << Ww a 
= =) 4 Og oy oO oOo M04 at +? a i or F- G fy -4 & aa (1  o- ©) ee" ts a 
> a — aeae —- F DOO & A oOo J . AO f& C16; Cct fit ie fr oe cs i tw yi wih ofS, ry 
4 (4 oe 104 i i b= k= ke = k- ke = er C3 to Co to TI ea tes b= 2d aw! £3 i4 L4 ‘4 be“ he nf tl ie: i 
QQ am | _ — a Fe = jc ) L) i} tJ = ct ee ee = meh eco =| ia) Fa fi ro e et a a) er 
wre & er aco & Go a } > = x Ee rE Fi iF ete ei HMMM Ee EGQeFtFetePrPreererprwpre ¥ i. eit k* bE tog *P hE he i BEre = mK <I * 


OKoarNATNOWOrKR DHX AMMO TOUR OMoRA MMO TOUR OM ORM TOWER OMhonrN TOYO Mont WMTW OW oe WMP Oh cae ty Coro ch coe CUP eo cy 
WWAMMARANRM BR AR OOM OOOO OCHOA Khoa goo MO Om Ot eter et eneeeten tl (td ft dit tt te Wi 09 PO OS eo 0 Oo Pe ro or er ei ee 
YOCOM OOF PHP HHH HHP MH HPHPO MH HN VYVVO VEY wwOWIT use OW wwe wa wo ee Od Ot 6 a OO AO tw woot uo Wo A 


cq) fi aa Oo = Oo or co o wu Mwy ics T Neen dse Geary t> Cj) fy (a) c c: = my m,) 
Lal = como = a a — a = 2 Sr Oca _ Ot] € co oo LJ cS #3 ; co Lid ca [2 = fr. i fon! a = 
300 cS eo & & om © & Loa Le iC o €> cS fa cS a Ot i745 G co c it ia. “f cs cS | Ca = = w+ 
on cS oo & La oc e & o a i oo cc & = ooo hfhmA & oro La) in La a a om ei = a =i 
moa ty oo ~ Ro © ww fo co oo oc © Weoaoce ea t i co — = La co Kr. om 
qo Li bo hu oOo kk ww oF wW ix kc OG I EZesoonoad dea co fe tt i kt rc << tk. a Li. 
=> cS ae | ile oo = ft os = , = fc ft on fT (3 (2 03 €3 (S Oj 0) to Lae oo te toe tT La ma co ts 
J ld c> co oC) t) co tp J oo ft! co Oi. 9 oO Oo iOnmoacec We ‘> O + © ti <i & " Ts 
ow % MOgoc = a ar cy T- oOo o ow (Gj co Doren oo mo ( Oo c> Oo =, a + cr o a 
oo co [Soqo a] oo 2 LJ to a oc €3 ¢3 oso oqoooncd§s:¢ wt co t) w r c= ta] te qo = 
oc wT too oS oe¢t¢ tt oo WwW Go & oo Wo © orca tm® © [> Oo cc fj fy i Tr oc aed wT 
o° ao oc So o oo o oo Mm oo ty on an ob oOMfFOOd ™h) rr 0) cp 1 c o i ta 
oo c 0) 0 oc 07 oo a) cc 0) oS o © ts oo Oo ooo wt oo fi) (I (1) to oy Ler c = ri oo] = 
iL) oo Lal Fa to ty uK Lo oe el ts J o uw Oe I MhaWetrh co Bee o t) ch. a fa si to is 1 mS 
wT wT TwtT T Ti no —« PO “_ no wm ma MmMaordgn sae fF. » Ww nD Ta] we wn wD wo 
o- oS ooo o oc t= Cc nm oo = oc oc a Sooo nm ce wT 40 —_ ti c ) 0 i =) c * = 
re co ch Tea =) LJ b. oOo i T Mao fF. to Mm Gm tb ce G) 00 tJ tJ cn P uD at *, os iT ai 
mT om cr mo o mom ‘T <= ac « «I I «<r <I <r T CGaIeecTto ww eat ea SY a po fy ry be: ee) ram) aw 
oO & a cs o> Cs tard oS cy Cc a | fa Le co €> €3 | = oohHat ™ & Ch co © a cS cS ci c co = 5 Lat 
oo ° ccm = oOo 4 o ©o oo Om? £79 & Oe rates a ots O c> Go o o c: om 


a Se 


ase 2 ee © 


436) 


Q 


LISTING PAGE 


8 


PROGRAM PAGE 


FPPWCS 


E.2 VORTEX LISTING 


MWwWeOARoe AMO THNOWCDH oe TNFR BeoK MTN &eEOoae "Wwe OAA SAAT eh on aT eS Hess oe reels ITH re alr PN 
WwW WwW NRA RRR RR ODOM CID ODHAMARAAMRO Nhe HENS SG a et et es ee et es AT Cu tS fe ve ta te SO ee eee Co oy Se ay a AP SP SP SP ar a 1 Tw e S 
WD WD Dw pO WoW Wo AO me OE OO -R BPP PPro PP PPP PR Pre Bo aos, PS he ® re, FS I, Po fh Py of. r. ts I a Por. os. PL Poe on ieee ee 
Sg oorceseesrocosscros sor eoea secret eorson am atrttt raeros becdipea oO 70Oo 0 2c STH oe oO HN er ots oe 7H Cp usher gt Pte Cs eh Ce ee a oe ee i te q 
SS eseossacSBeroqoa vvwo sesoqooocc8H8etoesaaa ase ce s- © ©) fs = és lec S48 CS 135 Oe See ee ee EVP ee eS ee oe he Tia fi & 2s fess Co 
=e & 
Sa SGSGSGSS5SFS S55 SSH SSsegsrodteecrtseoeoo ne or &€eO VODA pepeadredh thes (alii foe fo (2 a fy et a ae aan ES Tae aS a ae ae a, ee =i pe oe 
SoO@MPoeecstoosr Tc CSCC Ccro scr stoCooosaeaa# eK GOSCGoeni er TS oS eS 600 3 65 oe Oo iS GON ea cS eee eco or 2 oh Coty ON to Co oo ae Go cS ee a et Se a ea 
Sea 
~, ~, 

“a — k= uh id om ~ . Oo ey 

—! o o = a ei —! eS oo -« sated = Cr 

onl wt Lil e L. Cia * a = J ra “Tt A — a et 

aL = - » —_ . tz ie = oo - <1 a <r Cyut bLlla! ss ee ca a 

dip oe ee i i ff my os <r dir =f "tr ie os i C! Le 

a el oy << “wr it Go CJ io ‘tT Nai! i4 nes 3 Leal =~ LJ “> tat ae ale 

~ a nd i a nd o cr hd tJ a oS Woe ey Or if Lo =: 

MN = mM 1 fu (3 oy oj he) i") -J Oy tr rH ti ms ee -—_ hal Gl oe om 

= pe om fi *s* Ci iy — =i ol ty -* Pa sa = Pa - os e bil Lid s= bed | we Li: 

LJ =~ = ae a *, . - i" - “ -%, Fn Se = 1 iF " ps one ij eS | Ce - wal 

Fk fi = rat a wt *, mn Pe Fin | =, ri -- tal eo Te i a ar al r= a a a te fel m. | tts i * 

om! tc + hr — aod al io " co! ce To oe fo3 a a tc Clr Lo ro ‘es bm ns aes 

ite -« oO Ye Se ff: Ci ej om ca: ‘ EJ ~ ft bh cr it me . <4 Mig EA fi af | Cac fa 

ix OC <r <r | ro. wr 64 al t WJ <r ‘ a ~ w <i (4 fF Ed “PF ar ual pret L oe 3 = = it ~ c 

oo i = — eG = =~ T wT Se La ee ram wT tJ Ci ial Mi TS ce Gist st ie ex — «FS ad 2 ed ae oe Lit Ce i i = cal 

Jo mw Ww ae ti ie tu i et oe ce tid as Lia om he Lom a DP an ei i re A tad Fs tr Oi ee os Li Ce ia! 

CJ. =i aa a Ly ow ia to i - Py, wa eR i Ee eS a ie foe bo La R= af il mm = dir om ie ‘w 

SOF a =a La! ws ‘et , ret om pe i em i a a ee oe fs £4 e-4« 3 tz iL SO ee J) 2 af a3 Ge or Lew 

-— JJ « oo 2aA@&t 1D te i“ a - 7 TE ing sae) * «G2 ad oc x cL ix Co — ewe Cie Ca = rie bs Ss 

ry a Be fy Zit =e ( of 64 FQ Ld 69 a Cc o eS ae ‘ af Je = = pts. & i int mM i« Los i aor 

~ ~ ™ ) tO) = i e AL i. a. rr es wy 7". [9 4 Co Pd ™ Fo io wa fsca L* <4 a ao foi mo Br wer Lt =. £1" pot 

a ft ‘LT aI Ll i el ee bl i i li Gt a fe a* 5 dy aE Lo 21 4a ete St bd — i 2 ate le LI OE Ole ie ea we i! 4 a 

oO o Ou & a I oe <I. Ur Ur ee Of cr 4 <— c3 ade a he C ‘CL — ha ee rm ¢4 is 48-6. Lid << ae “ a Ol cet or 

x _ ld = fu 4 ‘wt ea ci 4— ao ‘at & <= “of Lit k= 1h £4 eo has F— C3) 6 tT ou had Co ial to he eee we aa. . me = Fe 

Am | ADs = oe a her” Or kk + ‘ The CW Aas we > Cu = = ret ei Co (& = I< La eer OF | ty bea r Po. Gy Pe 
Yr “a ~~ = “I oO td et i nos =r Od 4 wf i a Lo "Lj «wd " fm TT 7 F _ Cif. Ihe «= Cf 63 ae ark, a 
OOo wT ~~ om - Th et et Mek « tu a *~ thes a OY on Te os r+- “i Lil i} et bee = sy a a {iret 
ane sti’ fs an fe Fa on Tt oe or. m = - A, on oe “ ts irae bal i at Oe b =“ LS 2. w (POO few be. bots a a a 

«OO = Co en i +) me = fs Leute mo ca a) ee ti ef «re } ww) a i ae ea ia i . - C.F a #5 LI 

qate Ak IS — 7 () «OO mi ij a i Fa AS Jo = oe a om Le] COM Zio ee ee a Soe fH * i a, = 

Oo oo oo foefz eFuUuF AE CE vere oH = La] o- Tomb oudTro oO “= Feu Sib ff LETOW WwW UG © ar | = 

LECTE few tf al Me = Lil re Lid “a Hs | LJ = rik HE OYiwhk ‘\ a fe @m& Lille Le Joke a ri T ee. 
Ow LW wHwhea © Jet XE = eons in = w BOA wish @ SF @ ee Ret Tet tet Eris ma *, mr Oe ie ow 
e-eEt= Th = iJ } Se el “et fl 2o ti az ed va “ef = ID a mL tid ar bd Lei ee FS i= oe DO Oo: fr “ebm Eh. any 
Ld ww i> Ce eh al 7 ew Tw ww A ww « all ww bee ueawL «a ay | oh al * r- i oe ee el ee be fy faa c « o. ti 
Le wo — wo nm | a — (4) = ri) ~ a et z fy =. os = pal ke fs a" m op ef. tC. a 2h O42 ACes Llte wa Cle. oe a en eee wh 
abl) = om | i) CL) ~~ ~~ ~s 47 13 Li) (3 (ev — o”~ =~) me fla@ « 2 ~ Cite -« 1 L e< ea = 4 ne ee ae Oe ene | is ac pf. — i «sf 
rales few s Li) =. a ae | = a | Ou o@& LJ a La <2 LJ J te ww « Lt J Eee « Lid - ad co Fue -F- i oe et r= Ce ela » fo le i! © 
an Ooo aA oA a .J co I Lu G. £7 & eo ew & oe Gl Ga cL Wes Le ~ fi oc de I b= F Lil » = OF OD CE a Pig te Hs OE os ED ee Cot Lal 
li it | 4 le awl SYeaAarada aH ) iad CL CJ <r -. Co 4b es Be aA Oven Wee ae lWWk Loa oe OY fe bee WD ie bi Rt Lg LO a ae uy ze Ch Li 
~-k ik ie os S-  e La tte 7 a a Co it £9 44+ Oo =. ie el ar oA eH een ie co _J bol bs =o Leche Hlorpwewoe & oO Ee =. et OO Le 
OFWs <r T.roOoOqR Lil LCaeLouwo ok 77> © “OAC TEeEewrewnAao ere ose co ¢ me eT. hm te CE Ge a a | TIO) tl << E tt ! -- dpe 
=e i Wa Tt eS HYHAOITOUON OY mA oi. ra ~~" J Lu Aj ee ee ees ee i a a eT | Lif. We Fle IS we “js — co th ey 
SMok-uOwrwas Oweweee ew eee es —_j~¥ Wee Woe ke Eee DO ON be 0 14%. 64 et Ot co SS ae Le te. i fled TC) oe co su ii. Sef ot tl Lo te 
Orewa mo ww TNonNnwiwowshN sO aq Wo f-O8 FF eet Lt COs et ew Ps wt OW th re Ea ot ‘fo obs Metta at oS eA. | OE es ew 
zz & a ae Eel) « © Ee Sst Hee et A «aD w« aoe! =a as) ea De oH nw eS et Ew hy et ram oz ee Coe 2 CI Owe bos rm «= lb Os a a | 
tee tae @ ee ee a ae te A m « MB. «Ms eaeOHrae = «Gre Oemk «= af ee Ra = mi t= Ly LJ -}- room as pee ae —FT 2 —- OO 
WekK-VWOoWULCMOA}S ss « ArtnrAanannnnn OD Of Fern HR OAONKN OR Gen OLMAPYw = & wim « Seok Fekho Den 16 «ae Soke DG 
eto eae TOs YObpTIKRHNH THe Shue ERrawNH Tt I-ca saw dW 0 CJ CUT oa - aa Led Lod Lil Meuse Wwe TOU —_ E&wweeri a CJ 
MMMM Wtitk- WoO HW OR-MwMTHwZcezr HO t4 Ee il 2 “EF WMS wWM roo 12 Witt MO 670 t) — }- te o& te A CO lJ Ld SWC Fe le) Qu k- + et. mee wu! 
So we Mewes UL aWwReewaree Ao po OWMNOP COME eK AU TCO e+ eee ce ee at (1) (7 t+ aTrgie | be pa ce be ey Ct BG be! OG a Ll eS Oe 
&E IE - EWE Ei iLRoOrFOUFOF- FEED E ee ee lt eo oe ee te oe | Lad on 8S es Sido OC) CoM wade SO ad U2 diego e- Co iS 
a wee owe owt) —* ee q-vOow Lr Pe we Oe Le we we foe Oe wo. b \ qe vw ee wb eee ee 
ozozt -. Freee Gaz2zTt2ecrtrrr Aztec aMne@oritigcter Cueto = tt _{_ -$te oe > -_ axzrndgcaAaztr yr a 2errarearea tT 
lie tel, col eli qMO%e%\S New UN UNCUBR SB ON OR ONS ON ete Nee ae] a ~— GN ew KN SN Net TN et 
=z =z YU UYU Oo w Oo o o@& ow Wt OW or & UW UT FE Ho wu F = Yy owo wo —a & Oc UF 
~_ ecw ll 4 WJ Ww lJ uy “- al Ww - LJ Li hall [a 4 oO Oo = = Ol re o «IT Fal 
= f= =x mt aR iw oO a & EF kk a zk £&£ r & - i) te ec =f > a = 
- —- Ww WW “4 - “o oO -— -_ | Fa ie Li Le! ¢4 «I +. ra of yo Q@ Lu 
oO rf ~ — To zz ra - a - ix a - o ce _ a a | lal = —- = - Li! Gc 
+ ae a a ee = 2 WCce Le FH <I ct i 1 = et al ee U2 t= =<. = | ate — 610 i a a a oe ve a ll = a. is 
ee a ee Mew WW Li & ld & ul Whi) Al Fld Wk old Wo Sl oO «x = Fa Long Ft Oe — bad Ld dd ed ed Ld Ld Xr lil lal 
MOUHOARUReY uu Ovo oOo Uo FOrFUD FU SY +O AUTU SUD AUR UW oO © ao iJ =U OMU WURDMVMYe Db wo 
t+ -« o ™ oO v 9 Ys a on — fy wo o on 

a ee | aoe <f tf hoe) dy - rae] | - tu fi wet oO rm co 4 Rael rt 

>» 4 WW {4 Hi t) “) H) -) i ae 3 va Fa i? 24 4 4 t) ta t4 Gr) i" 

a a res] a | a my fa se) PQ iz a Aq as) oO ey eq 4 i.) a a e 
RRER ERE EE a SERRE UU REREREREREE geo #£ REE a REF ECE rE Su P RP KEeSRPHVR REFER RHR ERA BRB OO x # LU = eURF UF Ft + 
UNO TMVWA.OGoHAUMOTHOWOIR OA OHAMTHVWVA OKO MM TMNWDWA BDHonhHMOTNVAROMoRMWUMTNWKR Mho nM PO BROOocoesWMOTMOweOtnon WO TnNWh OO ont M+ 
WWWWW WWW R NAR RA ARR RA DODO OOOH HOA GA MACHO Hoon F SOO COG k tase tet et eS eee fC te fo dg i to 09 09 0909 095 00 0 Oe ee or ee ee er odor ie io ee 
WOW 0wWwWWI YW WI WIW WOW wOVUUY OB DOW WOW BWW RRR RA RRR RRA BL RRR RL ARR RPL ERA PRB PS LLLP PB OAS PL 

o coc o& Fil o ae - — = t o fu ty c= | cu vw o tj Oo Li tu fw © o ul) be 

o oc © | -— (— =) o = - o | oOo © oS oo o o nn o oc o o o oO = 

o oo oo 2 © Tto0hC NSTC‘ o © 2 wv T+ oo oS Tt o o o oC Tr o Cc © ° i 

Qo cc ©& o a oc o oOo o o o Oo a & o o oa = | o wT i o 8 co + o 

oOo o =” KN co on oO @ o ww oo t% co = K oo + h oo oa on co © o om 

o oa klk So c Ko kh k qc « re ke oo SS o | eS =] < m KE. oes o 2 c 

t?tr o o So oo oo “> = © oO oo o 6 o o o c: a ee a o <t 

o ovo o ri _* ro f wu m@ oo m vr o ao “> o ~ a Co ro °C oO o tw 

vt tr o o o yuo WU qy- o oo 4 m © oo o f o f= o o wu ©o tf © co tae] 

o.hU€6OmmltC«COD is Q oo o oo o oo t=] an] o am co o i) ra] o 2 fo oo 8 ‘t co 

Tt Tr o - =] Tro Tt Tt o o i=] tT Tro ~~ TFT o — =] © Tro MO wf iF wn 

oo © Oo oo o 9 o o o C=] Qo o a] o o ~ °o ° olUmmlUCOCO ie o 

o om oo ® co own oo oo o 2 aa] o o @® o o a) i] o oOo o 8 8) o 

ul Le ® Lad 4ul i= A a ao ie*) kK. cu eo wl ti > < in fu oo ov BS a 

”o wo W wo "n wow w Yn w T © » wo TH) nm w wo wD wo “vw ht Ff wo wo Mo) 

o & Qo ft o - oc i=] Oo o o o o Qo o t Oo oO he o o o oc oe: © m o 

a i= Lil Le = o-~- fb rT Wo wo hw co on Ls 4 sa wv i= Lj Lo i a J © wt mr 

a a fa css) fo oo Oo u ci u | uo i | = 2 UU u i) Qo Ff e A A | 

Qo oo o = o oo oS o = o oo Oo c o Coa] co oO 2 Go oS to oS o oS om = 

o oo oo oO o oo o 2 Se oy o Co o o. ro os @ o o oO c Oo oO oO <> a 


a 


E.2 VORTEX LISTING 
20D6 O6BD0OSODOF 10009 


SOD? 1698SiC0CiFSoOOOF 


DeEcsoOo0NZEASD45S2 


CO€SSB280E0R9006C 


MHPnHHOOHC 


“dE THEN SS OA SY 
WO Cf ts. GO) fh) Sap 


J618R1C0is000401 


| 
oo 
0 0) 


CBEOVGOGSOO “0001 
46scseggdgesasocinr 
o6CS00001BAS04ARe 
O6Fsono0s00/7000e 
070880002309001B 


NHEO O70 8000023480050 


ON DOD OM Ow COO OF fe GT es 


m0 0 000 00 ob ON WON OS OY 


“~NEW A SS * 


NOE1 asAccoscedéséovsc 


O67800000031000E 


OSssog000sFso009 


O70800000SFS0008 
0200 


} 
vi 
om 


7 
* a 


370ABOSIOOF 80000 


4 
4 OFCOOO0000F 82100 
& 
6 


o7coo0g000N0FS2290 


FE Se ee ee = 0 


WOON hole OAV os WOR Oy Qi nwa Me Owosso OhA is OWI Ao a Lhe OO) 


* SEQARCOO0GO000000 


G9000S06S0000000 


SOE6 


NOYDDHSHOGSAHOOGHYOHO9O Bog Hoh OVMHOiNV avn DOH 00“) 


QH9E6 CFrESogdesurFsocel 


bapa wae be fo) O30) Ol oe) 3 dO) fr) Py) 


M0) 0) 67 0) 0) 0) 09.) 


ESsh4 
cBS15 


“hee e eB A 


14 @ 


a * 


1! UE 


a 


at Ee a Ee: a ae i ae =F oe 


Dn wt 
ci) 
m= 


(«© ee eH ED 


w 


PK Ji 


FPPHCS PROGRAM PAGE ) LISTING: PAGE ¢ 497) 

GE PNECESSI 1 1SCASGPRD» 24ERODs 14CDEERIs IF CGPROUTIO PCRSALLD 09 oO7?58 
UNEQUAL RETURN - SET F TO RF 00 80759 
GEN STCOBESIZ CBESISIASCKHTIsLACASGPRdse2dcRFa,14¢€ TRNADs uo ooreéeo 
CiScLOGIs1i3ScPOuUTas F< aL_usa OG oo/761 
CBSS-CBS9 I3 A @-WGRE TABLE WHITH MUST START ON AN EVEN ADDRESS GCG 80762 
MOVE STRING! L BYTE YO OPERAND REG G0 82763 
GEN (NCOCBSIIsLSCASGPRR  sSS4CRe@IsFeCstI vsIL BSSPEC)s22¢cOLSE& dD» CG OD?ES 
Ci4c¢cTRNB),1S5¢CLOGo,13¢OPROUT) oo oo765 
PUT STRING1 BYTE IN FCs RT-ADJUSTEDs ZERD- FILLED. SELEC sTRe RIENODOOD OursEe 
GEN PSCCESIOsCBSLO ds FSeset las ScFT slic BssPecjasescar Pos uo OO78- 
CL4CTRNB))15¢L063917CGPROUT) +24 CR0)+7CSHFT) Co 70/768 
TEST FOR END OF STRINGS - LOG! OR RETURN oo Hogo769 
GEN fSCCES 4 CETLiSsdsFSesetcsds5¢FTas Ooo go? Oo 
CIECASGPRRI«S4CRLase2etcsis FCALUES? oo 8077 1 
INCREMENT STRINGI FTRs WAIT FOR FETCH of nOaor7e 
GEN PNCCET6) +6 SFECI,LOCNAITMDIsIlSCASGPR) ,2@4cR1avLIaeINCAads 00 ODORS 
ClieBCCRYLIs17°GRPROUT > oo nares 
SAVE STRING! WORD IN RA AND OPRs SELECT SHIFT ROUTINE 00 Of 735 
GEN fFCCEL Sd sFSe +s 2C1as,1LIicsstPecsas,EsScmiIr) s O00 OOP PE 
CiScCTRNB)s ISTLOGIsif- CGPROUTIJse&4¢C RAs i SCOPROUT 3 00 8Oorf/7 
FOR STRING! R BYTE USE PREVIDUSLY FETCHED WORD IN RA 09 HO?7?7S 
GEN PHCCBSS) siet®tCASGPRRI »sFacRe do seecdss LICBSGPRIs2SCRAD» co no?v?g 
CLS¢TRNBIJ»,AISCLOGI»sIStCOPROUT? fa gorsa 
STRINGS FIRST-READ OR L BYTE - IHC STRINGS PTR» WAIT FO FET Oo Wl?" St 
GEN PNC CES LIES sSCSPECO,pIOCWAT IMD Os LEtCRsGrk os eet Reas LtcIncmds of 8O07?8e 
Ci6cCRY1)s17CGPROUT) oc £o783 

SAVE STRING? WORD IN RB AND OPRs SELECT SHIFT ROUTINE uo gored 
GEN PFCCBS La dspF Res S2ClasilitcBesS PECs. FS(MIRIFs L4cCTRNG ~C<LOG)»s ® gOorss 
Ci7¢<GFPROUTFs SSC RB», 1LSCGPROUT 5 go 80786 
CBS14-CRS15 IS A B-WORD TABLE WHICH MUST START ON AN EVEN ADDR a Oo 78? 
MOVE STRINGe L BYTE TO OQPERGND REG yor Ss 
GEN PNCCBESLS ell cBSsSPECOs FSCOLSE 146 TRNBI SL SCLOG +s LACDPPDUTD OD no?eo 
SUBTRACT STRING1 BYTE - STRINGE BYTE Re OPR REGs ZERO-FILLEBI OO fOr SO 
GER PNCCRSLIIsL SLC ASGPRIsES4F CRC sLUCBSSPOC  seacORZb os Le CK Seuss oo gd0?791 
CI6C CRY 1s? fC SFALUD bu AS/79e 
of oc?79s 

Hoe nro? ss 

CBS-mBS IS A TWO-WORD TAFLE FOR Ari E-SELECT ADDRESSING oc G0795 
GEN PNCCBLODsL4C ONES os LPC GPROUTO:s@4cRE 9 oo tures 
SAVE F IN RR? G3 OOF 37 
SAVE P GN RP Cec RSKERS OS 
GEN ~ ANCMBS Ls 1l2CASTPIsL4C TRNAS s 15¢LOGs si FP CGPROUTIs24¢R49) E.cteeeeanee 
FOR STRINGE R BYTE VEE PREVIDUELY FETCHED HORT IN FE oG Ga?7ss 
GEN PNECBSLIS Ds LECASGPRIs CSCRBI, ISS TRHAS s LSCLOGIs LS OGPREOUT > be JHSo) 
EQu  ¥* 200 PAGE NUMBER E.f# #8 eee 8 
fF, 2M#e Bowe ® 

BC® ENTRY FOINTS betree R ORS 2 
: , fF fas ee eee 
fC, feet cee 

ENTRY POINT FOR STACK-JUMPS AND suMmP IF 39. E.cee Eee ee 
SAMPLES @ REG FOR USE BY CONPRITIONSL JUMP. FC. TREE EH TH 
F fee RAN ER 

ORG a*is E,certt tee 
GEN AF CESTK IL sFSAs ecto rlecmsGPRas ede RO rs Ld cTRNADs TSCLOGD- E, FST a! Fee 
ETFG.«S$FOs,7CSSALU3 FE. ce et Ree 

EF. cee tae eee 

BCS ENTRY POINTS FOR RELATIONALCLOSICAL ROUTINES £.2e#7 ee ee 
FLAG @UOS SET OR RESET TO Fies WHICH ENTRY WARS TAKER. SO a iM de 
FE, Cc REC UPERS 

ORS “"i¢4 ee 
GEI PMCRELT Is LECRASESPEC Ss ePCAZER OD se LSC TNA ss TECLOG Es Cece a aes ® 
CWF1lss3CcaQ CE. eee eee ee 

ORG x° 36 FL eA EO ee 
GEN fHERELIIs LAECASSPEC  sSeCAQNE SIs LT4EC TRNAS TEC OGs Le CRS RRS R EF 
CHFis3cto E.ctre > Uwe 

Ec. oe ee ee eee 

BCS ENTRY -— CHOOSE BETWEEN $29 AHD MATH/SSCSTZINDESR. Le eee ERS 
fc Oe t+ eee ee 

ORG a oe E.R RA a 2 
GEN fFCSDOINIas FER ree 1) E, ftir eee 
F see as se ee 

ECE ENTRY POINT - DOUVELE WORD INTEGER ADD AMD SVUETRACT E.c# ee See 
BELEoOIN FETCH OF SECTIND OPERANS E.gcetetneus 
Ec 22 TEESE 

ORG a" 1C CE. ce ee RR 
GEN PN TARL SC» LOcoOrFSsmIR>: é6¢MEn Celt tee eS 
fC nee eR 

MAIN BODY OF MICRD ROUTINES FlLSaet tee ee 4 
E.g*e 5 SRR ES 

ORG yrers fi sets re ss 
oe Me a eS 

FIELD SELECT ENTRY POINT FOR ETACK JUMPS Ce SERS ERR ED 
CTeris MICRO MUST BE ON AN EVEN MICR ADUR ALA Sapien 
ee 

= cee OH 

START FETCH OF STACK POINTER Le CREE A eM 
- cet ee ee ee 

GER MMT STK IS Us LB COPSALU SD BCMERLC DD LEC ASUPRI seCSCRi bs LE. Eee R ERS 
CLi4- TENA se TSC LoS c. ose Ss ERKS 

EE. et Tt eee ® 

JUMP Te @ BEGLSTER GREATER? TREN Zerg Leet eR RR 
fr f° Peewee 
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FPPHCS PROGRAM PAGE id LISTING PAGE ¢ 
DATA 686105125 

DATA CJUMP ADDR IF A>O> 

TEST IF RO WAS NEGATIVEs IF $0. A NOT >8 S$O JUMP TO EXIT 


CTHIS MICRO MUST FOLLOW STKJ1D 
GEN ¢TCIAG2s JAGGI: SCFTI ss 7CALUSD 

TEST IF RO WAS ZERO; IF SO» A NOT 20 SD JUNE TO EXIT 
GEN /TOSAGS» JAGG)s SOFT I 97 CALUZ? 

A REG IS >0 SO FETCH INSTRUCTION AT JUMP ADDR: 

IF ADDR WAS IND» FETCH EFFECTIVE ADDR; 

CTHIS MICRO MUST BE ON AN EVEN LOCATION? 


"41 
ANC SAGS 3s 10CIFSMIR sé CMENC) 


ORG 
GEN 


TEST IF ADDR HAS INDIRECTS IF £0, BACK TO TETCH AGAIN 


ALEOs SET NEW P VALUE. 

ORG ¥~— 

GEN ?TOCJAGSs JAGZ As SCRTIas 2 CMIRS Ds 
CLILCESSPECIsSESCMIR as L4CTRNBISLSCLOGI»siScPOUT 

CONTINUE RESTART OF FIFPELINE AT JUMP ADDR: 


ExIT TO ROM. 


ORS 
GEN 


e+] 
f/PCSESMos PC PIMPS ds TFOsLSCINC Pas LOCI FSP s 6cMENCS ) 
NO JUMP: 


EXIT TO NEXT INSTRUCTION IN SEQUENCES 


CTHIS MICRO MUST BE EVEN? 


GEN f*PCSSeM iar CP IMPS 


REENTRANT SUBROUTINE CALLZCRETURN 


Pe TFOsTScIncPsas LOC LE SP as SUMEMCS 2 


RETURN ADDRESS IS fA¥YED ON Tack 
Ri ©B REG) CONTAINS ADDRESS OF STACK POINTER 
SAMPLE MICRO FLOW: 
DIR PRHIMPP ¢: STKI1s STKISs STKIS  PSHIL»PSHI2sPSHUS 
IND PSHJMF = STKJ15...sSTKJSsPSHIJ1sPSHJ2,PSHJ4sPSHIS 
| PSHJISsPSHJ2 
FOPUMP © STKGUVSTE 12) STRISs POPS PRPS PEREUS 


CALLING SEQUENCE 


GidSobeS 


PSHJMP: DaTA 
DATA <JUMP ADDR? 
POPJMP: DaTa 0165065 


SAVE CONTENTS OF LOC Fei IN RFs 


ALSO SAMPLE ITS SIGN AND INCR P REG. 
GEN CNCSTKIZ) 5 LIC BSSPEC)s SSCMIF 2s L4CTRNEISASCLOG)s 
| CIP CGPROUTIS24¢RF 3s P6TSALUI SL SCINCP) 

INITIATE STORE OF NEW STACK POINTER: 

GLSO FIELE SELECT TC DECIDE IF PSHIMP OR POPE. 

GEN CF OPSHSL IS FEI SCL ye LOCOSSALUDs BOMEMCIs 
CLS (A@SGPRI 24 this t4CTRNBIs tSCLOGS 

PROVIDE UPDATED STACK POINTER FOR STORES 

INITIATE STORE OF “ETURN ALSRESS ON STACK. 

CTHIS MICRO SURE MUST RE EVEN AND POPJ1 NUST FOLLOW PSHA 

ORG “41 

GEN PNOPSMJ2 Ss LOC DSSALUIs SCMEMC 3s LICBSSPEC Ie S2UMIRDs 
CISCDECB)stAtnsSPEC's SEC AONTE? 

PROVIDE UPDCTED STACK POTNTSR FOR 2TORE: 

TNITTATE FETCH OF EXIT AUDFPESS FROM STACK. 

GEN CNCPOPJ2 3s LN COFSMIRS + BCMEMC 3s LI CBSSPECD + BSCMIRG » 
CLI4CINCB)  162CR YL Pt ECHSSPEC I SECAPERO 

WAIT FOR EXIT ADDRESS TO ARRIVE FROM MEMORY: 

RESTART PIPELINE AT EXIT ANURESS. 

RG mF 

GEN SACPOPIS2s TOCTFSMIR Is BC MEME 

CONTINUE PIPELINE STSeTuUP? 

EXIT BACK 710 BOM TO NECODE NEXT INSTRUCTION. 
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GEN /NERELS?s10COFSMIR? »s6CMEMO>? 

IF ADDRESS WAS INDIRECT: LOOP BACK TO FETCH FINAL ADDR} 

SAVE FINAL SPUR: 

GEN PTCRELL» REELS? eSCTTIs 7 CMIRS Fs LI CBSSPEC Py ESCHIRD» 
CISC TRENBI 156° 86) ,17CGPROUTI- 240RED 

INITIATE FETCH OF ADDR OF OPERAND tTHO 

CTHIS MICRO @BDR MUST BE EVEHD 

GEN PHCREL4) s13C INCP)s 10COFSPIs6CMEMC> 

SAYE WORD ONEs OPERFEND ONE 

GEN /NORELS)» 112 ESSPEC) >» 22¢NIRIs 140 TRNB?- LSCLDG?- 
Ci7*«GPROUT>.247R95 

BEGIN FETCH OF WORD ONE> OPERAND THE COR IND apDR>. 


FPPLCS PROGRAM PAGE ii LISTING PAGE ¢ 499) 
ORG +2 
GEN PPCES3SM) +e 7 CP INPS Ds ECMEMCSI510CIFSALUY» LICBSEPECDs 
CEICMIRPISLACINOBIVISCORV1IIVLECASSPECIs SOCAZERUY)s 
Ciz¢PouT) 
PROVIDE RETURN ADDRESS FOR STORE ON STACK: 
CHECK IF JUMP ADDRESS IS INDIRECTi <HOTE>s SIGM OF JUMP aDOR 
WAS SAMPLED BACK AT tTKJ2.> 
GEN /TCPSHIJS +» PSAU4305CF TF +P CALUSI + LACASP I» 
CL4CTRNAD ISCLOGI SOCSPECI +s LOCHALTND) 
SET PF TO JUMP ADIRE?S: 
RESTART PIPELINE: ‘EXIT BACK TO rom. 
GEN SPCSSOMI es 7LCPINPS de GCMEMASI,LOCIFSALUI DA LACPIUT Ds 
CI@CASGPR) »24CRF IX, 14CTRNAY*S1ISCLOG) 
FETCH EFFECTIVE JUNP ADDRESS USING INBIRECT POINTER; 
CTHIS MICRO ADDR MUST BE EVEN? 
ORG w+ i 
GEN PNOPSHIS)»s10COFSALUDI:6CMEMCI,; 12°C ASGPR) s+ 24CRPF2 
Ci4d¢fRNAd» 15¢LOG> | 
WAIT FOR EFFECTIVE ADDRESS TO ARRIVE 
ORG *-2 
GEN CNOPSHIGIS6CEPECIs LOCHAITMND: 
CHECK IF ANOTHER LEVEL OF INDIRECT 
ORG +1 
GEN PTCPSHISsPSHIFG SCR T Ds POMIRSISLICBSSPEC Ss 2SCMIRD 
CI4¢TRNBDs15¢LOG3;17¢°¢GPROUT)+24¢RPF 3 
RELATIODNALZVLOGICAL CONVERSION RPOUTINES 
THO SINGLE PRECISION FLOATING FOINT NUMBERS ARE COMPARED. THE 
FOLLOWING OFT'ONS ARE ALLOWEL BY THESE ROUTINES: 
i> JUMP IF SPECIFIED RELATION MET? CECS X*24>, 
2) TEST. FOR SPECIFIED RELATIGN: SET & TO ONES IF 
RELATION MET OR TO ZERO IF NOT: CECS “*i6), 
3> THREE WAY BRANCH ON LTsEGsAND GT: 
cEBCS X*°14 OR X*'16). 
PARAMETER FIELD OF BCE SPECIFIES RELATION AZ FOLLOUS: 
0 - NE 
i - ES 
@- LT 
3 - GE , 
4 - 2 WAY BRANCH 
5 - 3 WAY BRGNCH 
6 - LE 
2? = OT 
REGISTER USAGE: 
R88 - ADDR CF FIRST UPERAND 
R9 - FIRST WORD OF FIRST OPEFRAND 
RA - SECOND WORD OF FIRST DFFERAND 
RE - DIFFERENCE BETUEEN OPERANDS? ALSO SEY TD FLAG RE? 
RF - ADDR OF SECOND GPERAND 
MIR- FIRST“SECOND WERE OF SECOND OPERAND 
OPR- DIFFERENCE BETWEEN DPERSND SECOnG NORDS. 
BUDS - IF ONE» THEM JUMP IF FELATIGAN2 MET: FET AT ENTRY 
CAUTION: THIS ROUTINE MAY NOT BE VEEL TO COMPARE DRURLE-wesp 
FISESDB FOINT NUMBERS SINCE FUFMATS GF NEGATIVE. NUMBERS 
ARE NOT CONSLETENT. 
BEGIN FETCH OF WORD ONEs OFERANED ONE cOR IND ADDR? 
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PROGRAM PAGE ie LISTING PaAbE ¢ 


GEN fNCRELGI21IOCOFSMIRIs 6CMENC) 


IF ALDR WAS INDIRECT: 
SAVE FINAL ABBR; 


LOOP BACK TO FETCH FINAL ADD RS 


GEN (TCRELSs RELA sr SCTT 3s PCOMIRS De LI CESSPEC 3 se secmi Ros 
CI4CTRMABIs LSC LOGIs IP CGFPROUT? sec4cRF 3 

INITIATE FETCH OF SECOND WORDs OPERANT ONES 

CTHIS MICRO ADDR MUST BE EVEN). 

GEN *NCRELSI,LOCOFSALUXs 6IMEMNCIs LSC ASGPR! ss 24CRS 2s, 


CLl4CINCA»16CCRY1)»F¢CROVELD 
COMPSRE FIRST TWO NORDS OF GPERANDS 


GEN /NCREL92 s12CASGPRIs24CRI FLL CBSSPEC) 23 CMIRD 
CISFCSUBISIGCCRVL3sPCSSUVRS+SSALUs TFOs SFO 
IF OVERFLOW OCCURED: JUMP TO NAKE LT/’GT DECISION 


GEN f*TCRELLIO,»sRELEO Ps SCF TAs rc OVRL? 
IF SIGN SETs 
GEN *7TORELL Ls RLT a SCP Tos 2 CALUSD 


IF FIRST WORDS OF OPERANDS ARE ERUALs 


THEN JUMNPF TO LT STATE 


WORDS ELSE JUMP TO GT STATE. 
GEN (TEPELLTEe ROTI se BCTT 3s FCRLUZ I+ LOCOFPSALU AAC TESTT Os» 
CI@CASGPRIseSCRPIsL4ACINCAds is6tCCRYi) 


SAVE SECOND WORD OF OPERAND ONE 


GEN PNORELISISLICBSEPEC Is SSCHIR Os L4CTRNBes LSCLOGs 
Ci7cGPROUTI»24¢RA3 

WAIT FOR SECOND WORD OF OPERAND TG 

GEN PNCRELEF¢> sGCSPEC ses LOCHAITME: 


COMPARE SECOND WORDS OF OPERANDES 
NOTES OVERFLOW SHOULD NOT BE POESIBLE 
ECISION FP FORMAT. 


GEN ANORELIS Is LECASGPR = FACRAIILLCBERPEC)D, FACMIPDs 
Ci4¢~SuUBI,IBCCRV Ls FCESOVEPSE+SSHLUS TRI. SFO, 1S OPRG 
IF WORDS EQUGL»s JUMP E 


GEN ASTCREGs RELT6 3s SCTT3s PCGLUZ 

TOGGLE SIGN IF GPERANDS ¢FIRST WORDT? ARE NEGATI 

CTHIS MICRO ABDR MUST BE EVEN: 

DRG ¥+i1 CUT JM EVEN NOED 

GEN PNCRELAIZF »sLOCMEGPRIAPSECRBIVSLLCBSSPEC 2, 2@SCOP Is 
CI4CEOR»siT* Obs TFIOsSFOs F?CssaAlus 

IF SIGN SET, JUMP TO LT STATE? ELSE. GT STATE. 

GEN PTORLTaRaT as S07 Tas eC aos 

MAKE LT4GT DELI®t£lIOn SFTER OVERFLOW 

CTHIS MICRO S3DMR MUET BE EVE: 

GEN STORGTsPLT3:5¢TT 2s 746.2 3 

SIGNAL LT;:2£9, GFR GT EF Hodis Re itd —1; 07 8R Low | 

BRANCH TO RELATIONAL DubEE USING SARRMETER FL:ELD OF res 

(THIS MICRO ADDR MUST BE EVEN? 

ORG m+ i | 

GEN CPCTINED 2 FS9s207 ss Le CASSPOC 2s SBC AZERT) 
CLIS4CDECA) 17 CGEPRCUTI SSAC RE Ds TRO SFRr FP OCSSALU GS 1371 

GEN PFOTINE  s FSS: 20722 1208S 2PEC 2, 22¢AFZRFT: » 
CIA CTRNAD si1S CLG Ist F CEP ROUT: P4 CRE 2, TF Os5F9s 
CRCEFTALUDs13°1INCR® 

GEN PF CTINE s FS9: 2C7F7 es LPL GSTPEC Is PELAZEROIs 
CI4CINCADISIGLORYL Ys LPL GPRIUT ts. SACRE TPO. SFO. 
C7CSSALUY 12°C INCP? 

REL ATIONAL TESTS 

THESE MICRO: TERT FOR ONE CF THE & RELATIONS OF 

BEGIN PROCESSING THI THREE WAY BRANCH (AIF. 

THESE MICRPOS MUET BE ON AN 2 HDED BOUNDARY. 

ORG +1 : PUT CDN EVEM “ORD 

GEN PTCRMET RNOT 2+ SCR Tess PCRLUP? 

GEN fTCRMET s BROT 3 Oe PTS PCa 

GEN PTORMETs RNAI SCTTIs Fc ALUSs 

GEN A/TCREMETsRNOTI Ss SCRT3 2 PC ALUS? 
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PROGRAM PAGE 
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EXIT To ROM. 
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THO WORD INTE 
CALLING SEQUENCE: 


fPCITSSMI p+ PC PSMNPSIsGCMEMCS ds TFOsLScINCPas1OCIFSP) 


GER MATH ROUTINES 
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ORG "2 
GEN STCTFREs JIR]S)» SCKT3» FCQUOS) » 12CASSPEC}» 2ACAZERO)» 
C14¢CTRNAI15¢CL.0G2»17CGPROUT),24¢R03 
NO JUMP- RETURN LOGICAL VALUE IN RO3 
ExXxI1 TO ROM. 
ORG +2 
GEN /PCSSEMIs7CPIMPSISGCMEMNCSI+TEO,LOCIS SP) 
JUMP IF RELATION MET; 
ADYANCE P TO SKIP JUNE ADDR OTHERWISE. 
THIS MICRO ADDR MUST EE EVEN. 
ORG "-2 
GEN fTCTFREs AIF 13+ S5CF Ts 7CGPRSI,1LECASSPECI»: 2SSCAONES) » 
C1l4<cNECA)» 17° CGPROUT); 24¢<RED,13¢ INCP? 
FETCH NEXT INSTRUCTICGN COR IND ADDR. 
THIS MICRO ADDR. MUST BE EVEN 
ORG *+1 
GEN CNOCAITF SS ANCIF EMER Ds 6 OMENS? 
JF INDIRECT ADDRs LOOP BACK TO FETCH EFFECTIVE ADDER} 
AVE EFFECTIVE ADDR IN P, 
GEN CTOAIF4s AIFS): SCKTIs FEMIRS DV LICBSSPET IS 2SCMIRD » 
CISC TRNEDs15¢10 UT) 


FLAG. 


TUNA MAMTA OOOO Oss 


- 
i 


MMMM EM IMEI Stat n ee 


MAG areas ber tas fap ead ak 


i | 
en ee | 


i 


] c = = a = = 1] o - a # * ct = a a o 


“S¥e Tee ee 
~SeTEREE 
~~ ee 
Aho e 22 2 8 | 
PHRASE REY 
2£e ee eae 
Stree ee ee 
eee ee ee 
CREM OO 
ow 
-~SeT eee e e 
-#* eee 
et eee wwe 
cx TEV SEY 
oe; eee ee + 
_ == eee ee 
eee ee Sw 
“eee er€ 
Sesser eee 
Pe ee 
oe ee ee ee 
See ee 
2a 5 ee ee 
-~ #48488 * 
Jes 2 we 
kee eee SO 
en ee eee | 


s Lo 


se Le 


= = = = a = * i s c | a 


= fe a = a a = = 


“i * * . a él i a a - 


mmr 


? 


= Ss ee e 
SS enn Se ee 
See eee eee 
See eee ee 
seer eee es 
en ee oe 
Sees teeee 
ee 
2#e ere eee 
ee 
oe ee ew ew 
oe ee ee 
tee ow ew ew 
ee ee ee | 
22735) eee 
see eH 4 
Sew rete we 
Se ee 
ee a 
ofS REDS 
cee ect eens 
og 3 ye ae el, 


eer 
+*# @Ue eee eatraea tree es ee 


ee ee ee es 
Se hte eet RB et Se eK Se 


ee 
= b 
a F 

- + 

i. 

La 


‘ 
; + 


bal Fils Pit Phi 


= 
t 


ho: ee a ew OP oe 


rors fa Sens 
ao ‘ip “ie 


» fol 
* ok @ ah ok ME Ok ok ® 
rE 


_ tee ene wee 


E.2 VORTEX LISTING 


vie4 


ies 


0126 


o1e2ec 


*120D 


nLee 


012F 


9130 


0131 


0135 


032804040 6000000 


S3OASCOGeFOAIOCID 


Sev4og2scoou0urs2i0A 


1B7SSCOGEDODS2ARe 


Hn g5eCocC0000Rs000S 


og9e0dD00000 AS90019 


odesooc000Ag00CD 


7397SS3S4000R900D1 


1B-sucdcs6edoo sere 


ogscocodgo0oARsocoR 


O9SSHODONOFSD100 


19SAIGOOOOASOOIC: 


a or eo si a toes RT lcs i a a a I ic a a ce al 


HUI Qt tls HWW Wo MMM SMM MMMM fom MMM NN rr PM honor) Pon) Ph) ho) A) fo my 


QO POD FHM VO DMO DOWN VN YN NOOO OnDaAnn mmm NABER ABR BABA) 0) 09090) 6) 70m ODD 


VOYAVLAWM-OWVONKUAWM ECHO DRUMAWIMY OW OYVHUMSBHNMK-OVONDOAWQM-OVONHUADMKOYWYONHUDBOM-OVONTDU SDN OWONH SOM OWNOU 


O9ATDGOODNNARSNOSI 


ai Pt tt ee ee pe fe Se he a pe pT 


1ecsovoses00ssse 


NSEONONONOASONID! 


ee Si ete pt pK ete ISAO SS Gs Seo ao 


i ej fot fe pe 


Y 
A 
cl 


ee Me 


— ee 


Mp? 


4 a # 


FRPPHWCS 


PROGRAM PAGE i4 


FORCE COMPLETION OF FETCH OF SECOND WORD OF 
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GEN PNCIMND62LILBSGPRI»2aCRC sl CTRNBDs LSCLOG?» 
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MICROS UNIQUE TO MULTIPL' 

SETUP LS<COPIOFOR FIRST MULTIPLY? 
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SETUP MSCOP1>) FOR HEX MULTIPLY 
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SAMPLE MOST SIGNIFICANT HOSD OF FRIDUCTs MSCLIAMS). 


GEN CNCIMUL4 3» LECASGFRIsSS4CRO F140 TRNAI>LSCLOGIs 
CTFOs SFOs CSSALU2 

SAVE LECLS*1395 BRrAntAH TO TET GQVERFLEW IF 

MSCLS*MNS) WAS NONZERD 

GEM TC IMUTS Ss INUis ss SCP TAs PCALUSS sLILCBSGPR3s2@ScPi ds 
CI4¢(TENB siISt(lLOGIsilr ec GPROUT).« 24 ¢PR6> 

SET OVERFLOWS 

CAUTION: THIS WILL RESULT IN OVERRIDE IF MENDPY ACTIVE. 

GMSK PNCIMULE ss 7 CSOVFLIsSFisTFOs LOC LF SouvVR 

GET MOST SIGNIFICANT WORD OF RESULT EY 

LSCLSAKMSI+CLECMSKLSIDENSCLERLE DD. 

CTHIS MICRO ADBR MUST BE EVEN?. 

GEN ZNCIMNULF Os LPL SSGPRI2ACRIFe LIC BSGPM 3s 2SCRAss 
CLl4CABbas 1/7 (CGPROUTO» 2S PS SZOvRcs 

SETUP LEAST SIG WORD GF REEULTs LS*LSKLS)D 

GEN PNCIMULS ys TIC RESGPRI CST RPS + t4iTRNSD, LSECLOG? » 
Civ *«GPROWTI».2@4¢Ri3 


SAMPLE MSCOFP2) AS PRET OF FInSlL OVERFLOW CHEF, 

GEN PNCIMULS Ss LAtCASGPRIs24CRB. L142 TRNA?: i S¢CLOG: s 
Cre SRRLU YS 

IF MECOPe@s WAS ZEROs COULD'NT CAUSE OVERFLEL! 

ELSE, CHECK: FatOGrto. 

GEN PTCIMNUPSs INUGDD»ASCTT 3s 2? CALUZS 

CHECK MSCOR1 2 


CTHIS MICRE ADDR MULT BE EVENS 


GEN PAHO INVEL Ss ie SSeGPRI,24CRS83-14° TRNAS LTSCLOG>- 
C7CTFALU) 

IF MECOP1> IS ALTO NON-ZERN. JUMP TO SEF OVERFLOW. 

GEN ATCIMNVE?s IMVS2I SCTTts FC acuzZ3 

SET OVERFLOW: CAUTION: MEMORY OVERPITE IF MEMORY ACTIVE 


CTHIS MICRO ADDR MUST FE EVEN? 
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: ci? CGPROUT)» e8itRi3 
MULTIPEY ms cori) ANT LScoPes;s CPLUS MSCLEXLE33., 
GMSK f/PCPAGE+NUL® »1LOCSTACK 3s, 1 6¢CPUSHI, I1S<PAGE+ INU? ds 
CLES, TFOs SFO 
SAMPLE -MOST SIGNIFICANT WORD OF PRODUCTs MSecwMskc_e>. 
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SAVE LSCMS"LE35 BRANCH TO SET OVERFLOW IF 
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CTHIS MICRO ADDR MAUET BE EWEN?., 
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GMSK f/PCPAGE4¢MULIs 10C¢STACK)s t6cPUSH)J», ISCPAGE+IMULS 3s 
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FPPWCS PROGRAM PAGE 16 LISTING PAGE ¢ 


GEN NCIMNUSSIePCSOVFLI»s SFisTFOs ioc IF sOVR > 
TEST SIGN FLAG CQGUOS) TO SEE IF RESULT SHOULD BE NEGATIVE. 
GEN f/TCIMNVUESs IMVUES IA SCKT Is AC OUDS 2 


MAKE RESULT NEGATIVE 
CTHIS MICRO ADDR MUST BE EVENS 


GMEK /PCPAGE+ ICMP Os 10CSTACK3»s 16¢CPUSH)s 
CiSCPAGE+INVUeESIs LBS» TFOsSFO 


EXIT BaCkK TO ROM 
GEN fPCSSeMmsasidcPsnPas SFO, TFO 
UNIQUE DIVIDE MICROS 


Eau a 

SAMPLE MSCOFZ> TO SEE IF SHOULD DIVITE BY IT. 

ORG IMVirl PLACE IN FIELD SELECT TABLE 
Gen PACIDV2IsLECSSGPRI»sP4CREs LEC TRNADs 1SCLOG)s» 


C7¢CSS$ALUO 


ORG D¥VORG1 RESTORE ORG Srnr 

CLEAR ROY IF MSCOP@#> WAS NOT ZERFOs JUMP TO DIVIDE BY IT. 

ELSEs CONTINUE IN SEQUENCE TO BIVIBE EY Ls. 

GEN f7TCIDVYSs IDVEG 9s SC TT as PC ALUZ sLSCASSPEC 2s GEC HSERDIs 
Cid4¢TRNAIs1S¢LOG 2s 1 PCGPROUT Is 24¢R0> 

CHECK IF LScoP2@) I3 ZERD 

GEN PNCIDV4 Ds LACASGPR?s24CRC 3s LAC TRAD s TaCLOGos 
C7 ¢CSPtALU? 

ORG e+1 LEAVE ROOM FOR IDBVed 


SETUP MSCOP1> FOR CIVIDEs 


IF L$S*COPe3 WAS ALSO ZEROs SUMNP TO OVERFLOW ERCit. 
GEN CTCIDVOFs IDVS 2»: SCTT 3s FPCHLUTI,ALICBS GPR as PSCRSIs 
CI4CTRNBIsiISt(LOGis1F¢CGPROUTI»s 2A4CRid 


rad 


all 


DIVIDE MSCOPi> BY LE<o 


GSK ‘fPCPAGE+DI' 


Pp 
By LOCSTACK 
CiS¢PAGE+IDV6>:LBS:Tr 9 


SAVE QUOTIENT AS MOST SIG WORD OF RESULT. 
Gen PNCTIOV@ds LICBSGPR 3s SR CR ids i FC TRNBILSOLOGS s 
i7<GPROUTO: cdi RBs 


APNCIDVSds 1103 
Ci7(GPROUTS:°4 


DIVIDE REMAINDER + 


oP 

RD 

SETUP LSCOP1> FOR DIVIDE 
GEN FF 
fei 


ae 


GMSK “POCPAGE#t+ DIVO» LOCETSEK ss LAE PUSH s 
CISCPAGE+t+IDVS>?;LBa-eTro;8F9 

SE'UP MOST SIG WORD OF RESULT IN RO FOR? RETURN. 

LEAT SIG WORD IS TR 81 FROM PREVICUS DIVISTON, 

GEN PA#MACITIBVIOS s,s LIC BSGPR I ecStceDs »s ETRHEBIAs 1LSCLOG: s 
CI/7CGPRMUT)se&acee > 

SAMPLE SIGN FLAG TO SEE IF RESULT SHOULD BE NEGATIVE. 

GEN PNCIDVIilLrIeLECAFTGPR Ss - Pet Parts iaecTehess, TS¢LoOmy> 
CYC ESALU > 

Lf RESULT SHOULD BE PESIFIVEs CHIRP Te Bat. 

GEN OTE TEV Les ERY LSE SEP s.7 CALA? 

MARE RESULT NEGATIVE 

OM EK PPCPROGEFtT CRP as LOC TACK 3s LBS PUSH s 
CISCPAGE+ LOVI Ss. LES, TRO. RPS 


EXIT TO ROM, 


GEN PPL SSeS ss POP IPS ce Pe DPD 

OVERFLOW EX 7T - TLEMPYTED Bevisiags BY 2ZEREs | 
SET GYERFLOW: CAUTION: AEM GVEREIDE Tf SER ACTIVE 
RESTORE MscGri* 
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E.e VYORTEX LISTING FPPLCS PROGRAM PAGE 17 LISTING PAGE ¢ 7055) 
13598 m*” Cc See ew 
iscs IBDVOF GE NC IDVOFS)» PCSOVFLIsSFleoTFOsiOCIFSOVRs E, Ce F eee eee 
0152 OADD004de090R900801510 CIiICEBSGPRIs2A2StRSx,14CTRNEIs 1 5S¢LOGIs 1 7¢GPROUlS,;24C(ROD ~cEe*eRERR 
LS5ii * cl cert eee ee 
isie *® RESTORE LSCOP1>3 5+ SUMP TO CHECK SIGN THEN EXIT. C. Leet EAR ER 
sis 6 EE. ce eee ee ee 
i314 IDVOFS GER PNACIDVLOs LLC RSGPRS»s SACRII, 14 CTRNHES.» LS¢LOG)s c Se tee ee 
8iSA OAABOCOCIIASOAOFLISIS Cif<GPROUT):24c¢Ri3 ee ee se ee 
i3i » c S950 es *% 
en SETUP MScCOP1}) FOR PTVISION Pr Se kee Ee 
isis 6 E, 2c moe ee 
O15B1520 DVORGe EGU * FL Dek eee ee 
wige iSzi ORG IDVS+1 ADJUST ORG TH ALLOW cone ADDR. FE, Sect eee ee 
L1See IDVeo GEN TUNCIDVELI»LICBSGPR>»23(RS),L4¢TRNB3 S*tLOG35 Cc tyke eee 
P14E OARDSVOOCOOGASNDNSLISEs CirvcGPROUTs>.»2@4¢R15 ee ee ee ee 
G1ISE LS24 DRG DVORGe RESTORE ORG ADBR "Pp geet eee ee 
is<c¢sS #* - ee ee. 
1526 * SAVE LSCOP2) FOR LATER USE r OM 8+ 6 eee 
1S5er * of 0 eee 
13¢s IDVel GER PNET DVRS As LICBRSGPRIsPSBCRC LAC TRNBIsiS¢CLloGa, E.R EERE ES 
QI1SB GAREDAONVNDOOOASOUCDISes Civ?«GPROUTSse4¢RD5 Flo ot ee eee 
is 30 a PF oe oe eee 
1531 * SETUP MSCORPeE) FOR DIVISION EF cI eee ees 
1332 ™ ae ee ee | 
be IDVee GEN PNCIBVES re LIC BSGPRIsScSC RE, L4¢TRNBD  - LECLOG? » LE. cere Ree ee 
G1iSC OAEBOOHOOCOCASOCBCiIS=4 Ci7¢GPROUTI»e4¢RC) Cc See eee 
iSssS f Saws woe eee 
i536 *™ DI¥VIDE MSCOrF1) YT MS$COPe? TO GET TRIAL BYUATIENT fee eeee 
iss? ® Cc Sees es Sem 
1338 IDVes GMSK fPCPAGEtDI Vis tOcSTACK I), 16¢PUSH)s FL Sea kee eee 
QLISD L1IBOOONOKBEDOOSSE2 S29 CiSCPAGE+ IDVedosLESs TFs SFO fF eee eee ee 
is¢g m ee 
: 1541 BAYE REMAINDER Coe + oe a eee 
is¢e ™ cl Ser Se ee eS 
1543 I0Vv2e4¢ GEN PNCIDWES ses LIC EBSQPRI+SSCROFs LACTRNBIs 1 HSe€l ag, E., cee ee eee 
CIiSE O@AFSAOODROCOAIOHOSI S44 Ci7<GPRBDUT).-24¢rR8) a ee ae 
is¢3 8 c 2 wo ww 
i346 * SETUP QUOTIENT FOR MULTIPLY CHECK. c cee et eee 
13547 mi a ee | 
1548 IDVvV2S GEN PNCIDVESB SLI CBSGPRIsSSSCRL 2s 14 0TRNBD SL SE€LOG)s Sta we ee ee 
N1LSF OBCKONOKCDHODGOAIDDICIASS C17¢GPROUT)+ 24 CRC > E.2>*%**&** 8 ® 
1550 ¥ Ei BERS ED 
L351 ™ SETUP LSCOPI1>2 FOR MULTIPLY E.,. ctr eer eee 
LS * | Cc . Oe Ee REO 
as ee IDV2Z& GEN PNCIDVEZ se 1A2LASSPECsrs2e@CAZERO»,L4CT RNA, LSC LOGI, E,oe ee RES 
$160 OBDS00O0CCOFSOC0LOOIFRS4 CivtcGPROUTIs24£RO0 > cr okt SEEMS 
Hien Fes eo IdVv2e? GER CMCTBVES? > LIC ESGPRIsESCRBIs 140 TRNBI 915 iC LGGs s Eee TS RRS 
S161 OFLOVOOOCORSOODLISSe 7 C1l7?°<GPROUTDse4¢R12 EE. Lee RRER SE 
1357 m CG eee HK Se 
L533 bd MULTIPLY TRIAL QUOTIENT B86 SCOR LS Ee ce eee 
1559 * 2 2 eee ee 
1560 ID¥V28S GMIK f/PCPAGE+MULI> 1 1B ¢STACK) s1i6cPUSH?): E,.f# 7h te ee 
Nié62@ 1A2080006F£00039632156i CiIS¢PAGE+IDVEStsLESs TFOs 3-6 cr osteo e tee 
1S5¢2 * EF . ost oe ee 
isSés *® COMPARE MQ2tT $1G WORF? OF PRODUCT Thi REMBINDER FROM THE Et eR eee 
i ved af DIVISION: rF,cr rim eee & 
= Mer is65 * . FL oe ee eee 
i366 IpD¥e? GER PNCIDVSO sie caesGPRi-:24CRFS5s11¢BSGRPRI,P°SCRO)s EE. ct SR ERe 
0163 OB200C08000660005i156/ Cli4¢CSuUBA, LBC CRYLas eC SSALiD Cc, cette rene 
1566 * fF. "#8 eevee 
1569 #8 IF NOT EQUALs SKIP SECOND WORD COMPARE rl sete ees ee 
1370 bal Eo fee Se Se 
0164 3Beseedoo000gcoo 1s? i IDV30 GEN (PTFCIDVSL»sTOVS29,;50TT3s PCALUZS a oe ee 
See ” E. - see eee 
is73s *® COMPARE LEAST S1G WOED OF PTCBUET TO LS¢DoPi3 ro Py oes 22 ee 
L374 * E,c#*s2 ee eee 
Lore Inv3i GEM (ACIBVS2I2 vs iF CASGPR)sS4CRBIde1L1¢C BSEGPRi»FScRid» E.c** *NFERR 
Ni6S OESOSOD 80806600 15°.576 Cis¢ SUB es Lac ORV Las PC SSR) EE. ** RP LT Re 
i Pa w rss ee ee 
3° * GREATERT IF FPRODUCT OF TRIAL BUOTIENT AND LUtGPed GREATER cl oss 
i373 ¥ THAH REMAINDER+LECOPi32s THEN TRIAL CUOTIENT OME 100 WARGES S 2s 4 W SAO 
1530 * ELSE TRIAL QUOTIEN® IT ACCURATE. pate ee ee 
tae 3 a ee FP ES eS 
Ci66 4B363siCdOo000GCh8O0iSte ID¥3e GEh PCI DY ssh Lavssbiae Scr Tae Pf CALNE Rect Eee 
1729 * ear) (et ee 
issa¢ * RETURN TRISL GUDBTIENT #&S RESULT fect * SERRE 
1525 = tec tt* SE # 
L Teo ITVS3A GEN SAE IDV S4 3s TIC BSGPR? SSC RC as LAC TRNEDs LSC LOG® pees Vem 
M16? GE4SGCKCGSBGOASOACLTISe? Gis CGPEGuaT as Se CRt FD a Ae ee a 
iSss * Pe a eee 
iss > BF RETURN TRIAL QUGTIENT -1 AZ FESULT 2 eS 
isso =” CTH? S AICRO POEBRE WUET EE EVER. Aon SAREE 
isi == C = ee ee 
Lay! IDV33B GEN PMCIDOVS4 Jes LLCBSGPRIsSSCROCDs LA CDECBIs LECASSPET Ds oe ty HE 
R1iéS CBASoogtsadgsioeliixAss CESfCAONES si? SPROUTS» S4CR13 eas eS 
.334 *® Ce Oe RR we 
,o250—6U®™ CLEAR MOST SIG WORD OF RESULT? EXIT TO SIGN TRECKE. Lo REP M 
Lore * r pee Po ee et 
Looe IDYV34 GEN PHOTD¥YIG ss PPCASEPET APEC ASERPOs LECT RN sa. TEeclogys ca ee ee 
2169 QVAASCHIVVECSGFISLAGLSSS Cif cBrRoOutTo-.c4iro > _, J oe ee ee 
1605 * LPS caer apees 
L539 ] = FIRST ALTCRPG-ENITAUE TO DOUBLE mDRYSUERTR ACT : L.A RRS 
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PROGRAM PAGE 1s LISTING PAGE 


USES FIELD SELECT TO CHOOSE AbD OR SUBTRACT. 


Eau * SA¥YE POSITION 

ORG IMDi+t PLACE MICRO IN FSEL TRL 

GEN PFCTIAS2@IsFS9se2Clis1i@CASGPRLis2dCRDIs 
Ci4cCTRHAIs LSCLOGF,127°°GRPROUT > 

ORG TAODRG2 RESTORE POSITION 


ADD LS WORDS OF OPERANDS § SAMPLE CARRY 
CTHIS MICRO ADDR MUST BE EVEN?. 


GEN ee eee oe Bree eee iat st RBSGCRs eee RN eS 
Cid Dis 1 ACGPROUTIs PC SSALUD 

SUBTRACT LS WORDS OF OPERANDSs SAMPLE CARRY 

GEN fNOCTASHIsLSCASGPRLIs24CRIi Is LiLCESGPR5,»,2SCRDI 5 
ClI4¢CsusdsLlSOcCRV1lI ,I? CGPROUT Is PCSSALUD 

SHIFT LS RESULT RIGHT 5 

FIELD SELECT JURP TG ADD OR SUBTRACT MS WORDS. 

ORG ¥+e RELOCATE TIAS4 

GEN (CF CTASS a sFSIse2ClLIs Le ASGPRResS4CRidsSH4s5 
Cl4¢CTRMNAISLTSECLOGIs 1 /%CGRPROUTD 

ADD MS WORDSs CWITH STORED CARRY)s EAMPLE OVERFLOW ANB ALU 

RETURN TO ROM. 

CTHIS MICRO ADDR MUST BE EVEN? 

ORG %—-3 = BACK UP TO EVEN PAIR 

GEN PPOSSEM) sSFOsTFOs 10CPUMNP) «GPAs 12(ASG PRI»s24d CRO 3» 
CLICESGPRIs2SCRCosL14¢CAlDIsCKlisiv (GPRQuUT > 

SUBTRACT MS WORDS: WITH STORED CARRY: SAMPLE OVERFLOW AND ALU. 

RETURN TO ROM. 

GEN PCSSAM) sSFOsTFOsiOC PIMP Os GFAs LECASGERIseacRei 
CLICBSGPRIsEFSCRCFs14¢CSUBISCKis i 7 ¢(GPROLT) 

ORG ¥+1 SKIP PAST RELOCATED Fast 

COMPLEMENT DOUBLE INTEGER SUBROUTINE 


ROsR1 CONTAINS INTEGER 


PA IS ONES COMPLEMENTED TO acT As 
QUCE RECORDS SIGN OF RA. 


SIGN FLAG. 


/ 


CHECK LEAST SIG WORD 


GEN .#MNCICMP19s12CA@SGPR)»24CRiIs14¢TRNQIV1SCLOGIs7¢CS 

IF LS ZEROs JUMP TO THWO'S COMPL MS: 

GEN ATCICMPSs ICMP9Ds SCFET)» FL ALUZ> 

TWO"S COMPLEMENT LS 

GEN PNCICMP3dsiLCBEGPRISSBCRISLACTCBDs 1 6CCRY135 
CLA2cCASSPECI:22CAZERD?s 1 PCGPSOUT I» 242R1> 

CLEAR SIGN OF LS 

GNSK PNCLTOMP4 2s 1 2CASGPRISIGCRISD,11CLIT3:i5¢K' 80002: 
C14¢(ANDDs13¢0rRO0UT? 

GEN CNCICMPS Ds 111i SC BSESPEC) s23(DPR>>14CTRNBI:1SCLOG:> 
Ci7(GPROUT)»*4¢R17 

ONES COMFLEMENT MS 

GEN PNCICMPG6):1276ASGPRIsSE4CRO)Ds 
CIi4¢(NOTAd» 15°LOG3:17¢(GrrRouT? 

ONES COMPLEMENT SIGN FLAG Pai FET 9UNES 

GEN /NCICMP7Is12CASGFRISSIECRAX L40NOTAIS1SCLOG 
CI7CGFROUTIsHF1sScC0 

EXIT TO CALLER 

GEN LN CSTACK I s2F4CPOPJIMNP: > LBs TOs SFO, BES 

DECREMENT MS TO GET TNWO'S COMFPL 

ORS m+] PUT ON EVEN LOCATION 

GEN CONCICMPS) + TECASGPRISE4 CROs ae DECAS: 
Ci?<GPROUT> 

SQUARE ROOT AND INDEXING COMrON MITRO? 


59063 


FALLS 


cr oes eee eee 


SF es 
"il & | rT 


“wh 7 


Pah) Ree ee 


a © ee ee 


PPA WAM AAAs, 


“ATMA A FMA MMAMAMAM FAM MMMM SAA AAAs 


a cs rs ka 


® = fs] = a = ai = = = - 7- /- - 7 c - = a ai a a cs 7 


* . - rT = 


-~F ERS SSS 
_+ tv Eee 
e+ we 
‘re. es ss 
a 
Ae 2 # 
Steyr tee 
ee eS 
te + 2 ee 
ever tee ee 
a ee 
ae rt ee ee 
SFR MR 
i oe 
Sverre es * 
+ FECES 
Hi“ CREME 
tates ee 
eer eree & 
=“ ee EHF 
eee eee + 
feo + ee £ 
SFC RES 
tre ee eo 
‘82 € & * 
Frcs Se ee 
ee ae ee ee 
ST CRM 
ee ee 
ee Fe ee 
Si AS eS 


a a a 


rm Pi Ty Pa Tg Fig Tig Mo rm Pu Mot Pa ee i be Be is J ul rm MF r 0 my nM mM mM ror 


Pi oS 


ee 
oe me ae eat 
ae. ee 2 
aoe Sy ye a 


Fis bed ie Pia Pi 


Saree 
SSeS NES 

“x eo ee Se 
St see tes 
ater ee ee € 
Sete ee 


ny To ho My Pa Ne ty My fo TOPS MO Pe 
if 
i 
= 
 e 
: 
ie 
bi 


ie a 
ee i | ee 


—. 
ipa | 
a Es 


fi. 


* £9 +a £ ey? 
a 
¥ 
i 


- * ~ 7 


oF 
= 
“#5 
i 
3 


Pepe te i for ft fas 


¥ 
1 
* 
* Ne 
Tr 
a 


F 
Dah 


wT Thy Rare hy, 


i 

| 74 AL 4 
F 

hk 

a 


* 
f x # 
era 


- 


pay 
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FPPUCS PROGRAM PAGE 

CHECK FOR SIGN BIT ON INDEX 

IF SETse L | | 

ALSO SAVE ADDR OF OPERAND 

THEN FIELD SELECT TO EITHER 

ORG IARi+1 PLACE 

GEN PSCSOLsSQINE» SCKT)ds; 

. 7 CLILCBSSPEC),»23¢CMIR2214 

FOLLOW INDIRECT ADDRESS CHAIN 

ORG x"ise | PLACE TO ALLOW 
GEN ZNCSQINDIsECMEMCI,19COFSMIRD 


SINGLE PRECISION FLOATING POINT SQUARE ROOT 


USES TABLE LOOKUP TO GET 
THO ITERATIONS THROUGH FY 


CALLING SEGUENTCES 
DATA 0105127 


DATA ADDR OF OPERAND 
RESULT RETURNED IN AB REG. 


REGISTER USAGE: 


ROsk1 - TEMPORARY 
R3sR3 - LEFT JUSTI 
RA - EAPCNENT 

RC - Tis LATERM 
OPR - TEMP, STOR 


START FETCH OF SECONT WORD OF OPERAND: 


LISTING PAGE ¢ 


SQUARE ROOT OR INDBE®R 


a. & 


NOP ON IOP2 UNTIL REACH END OF IND ADDR CHAIN. 


FIELD page THELE 
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